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PREFACE 

This addendum contains additions and corrections to the Users's Manual 
Supplement, Version IV . 

Chapter 9, The 8086 and 68000 Assemblers, on pages 1 through 7 of this addendum 
is a new chapter. 

Pages 9 and 10 of this addendum, which contain corrected information concerning 
the Segment Alignment setting for the Z80 and 8080, the QUIET and ENABLE 
commands, and the EVENT I/O interface, replace pages 1 and 2 of the Users' 
Manual Supplement. 

Page 11 of this addendum, which contains a corrected directory list of the current 
Z80 release disks, replaces page 3 of the Users's Manual Supplement . 

Page 12 of this addendum, which contains a corrected directory list of the current 
8086 release disks, replaces page 16 of the Users' Manual Supplement . 
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9. THE 8086 AND 68000 ASSEMBLERS 

This section contains information specific to the 8086 and 68000 versions of the 
UCSD p-System adaptable assembler. 

The 8086 Assembler 

The UCSD p-System 8086/88/87 Assembler differs in some respects from the 
standard Intel assembler. These differences are listed in this section. Also, the 
8086/88/87 specific assembler errors are listed. 

Notational Conventions 

Assembler Directives. None of the Intel assembler directives or operators are 
implemented. Instead, the assembler directives described in the Users' Manual are 
available. 

Parenthesis. Index or base register references in a memory operand are enclosed 
in parentheses, not square brackets, e.g., FIRST(BX) rather than FIRST[BX]. 

Immediate Byte. ADD immediate byte to memory operand is coded 

ADDBIM memop,immedbyte 

to distinguish it from the ADD memop, immedword which is the default. 
Similarly, MOVBIM, ADCBIM, SUBBIM, SBBBIM, CMPBIM, ANDBIM, ORBIM, 
XORBIM, and TESTBIM are added to the vocabulary. 

Memory Byte. INC memory byte is coded: 

INCMB memop 

to distinguish it from INC memory word, which is the default. Similarly, 
DECMB, MULMB, IMULMB, DIVMB, IDIVMB, NOTMB, NEGMB, ROLMB, RORMB, 
RCLMB, RCRMB, SALMB, SHLMB, SHRMB, SARMB were added to the vocabulary 
to specify memory byte operands. 

MUL and DIV Byte. In MUL, IMUL, DIV, IDIV the single memory operand form, 
e.g., 

MUL memop 

implies a word operation. To specify a byte operation, either MULMB memop may 
be used, or the form 
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MUL AL,memop 



The same holds true for IMUL, DIV, IDIV. (Note DIV AL.memop is rather 
misleading, as the actual operation would be AX/memory-byte.) 

MOV Substitute for LEA. For LEA reg, label or LEA reg,label+const the 
assembler will substitute MOV reg,immed_val where immed_val = label or 
label+const. This saves four clock times (4 vs. 8). 

IN and OUT. The normal form of IN and OUT is IN ac,port or IN ac,DX and 
OUT port,ac or OUT DX,ac where ac = AL denotes an 8-bit data path and 
ac = AX denotes a 16-bit path. Since the accumulator is the only possible register 
source/destination (DX specifies port= address in DX), single operand forms are also 
provided: INB and OUTB for byte data, and INW and OUTW for 16-bit data. The 
syntax is INB port or INB DX. 

in the two-operand forms of IN and OUT, the order of the operands is not 
important; thus OUT ac,DX or OUT ac,port will be acceptable. 

String Operations. The mnemonics for the string operations are suffixed with B or 
W to denote byte or word operations: thus MOVSB and MOVSW, CMPSB and 
CMPSW, SCASB and SCASW, LODSB and LODSW, and STOSB and STOSW are in 
the vocabulary, but MOVS ... STOS are not. 

Segment Override. XLAT and the string instructions have implied memory 
operands and nothing is required to be coded in the operand field. However, in 
order to permit the specification of a segment override prefix in the case of 
XLAT, MOVSB/MOVSW, CMPSB/CMPSW, and LODSB/LODSW, the assembler permits 
operand expressions for these instructions. 

Note, however, that only the default segment for SI, namely DS, can be 
overridden. The segment for DI is ES and cannot be overridden. A segment 
override prefix of DS applied to SI does not generate a segment override prefix. 

If these operations were written with operands, they would have this syntax: 

XLAT AL,(BX) 

(DI ),[seg:](SI ) 
(DI ),[seg:](SI) 
(DI ) ,AX 
AX, [seg: ](SI ) 
(DI),AX 

The string instructions may be prefixed by a REP (repeat) instruction of some 
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type. The assembler flags an error if both REP and a segment override are 
specified. 

In addition to the forms DS:memop, etc., a separate mnemonic SEG followed by a 
segment register name may be written in a statement preceding the instruction 
mnemonic. 

Examples: 

MOV AX,ES:AVALUE 
is equivalent to 

SEG ES MOV AX,AVALUE 

Long Jumps, Calls, and Returns. Intersegment CALL, RET, and JMP are 
implemented as follows: 

a. The mnemonics CALLL, RETL, and JMPL specifically designate 

intersegment operations. 

b. An indirect address (e.g., (reg) or (label)) is assembled in 

standard fashion with a "mod op r/m" effective address byte 
possibly followed by displacement bytes. The memory 
location referenced must hold the new IP, and the next 
higher location must hold the new CS. 

c. The direct address form must have two absolute operands: 

CALLL exprl,expr2 

where exprl is the new IP and expr2 becomes the new CS. 
Constants or external symbols (e.g., .REF definitions) qualify 
as absolute operands. 

8087 Mnemonics. Mnemonics for the 8087 floating point operations are standard 
except for certain of the memory reference operations, where a letter suffix is 
appended to denote the operand size: 

D short real or short integer (double word) 

Q long real or long integer (quad word) 

W integer word 
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T temporary real (ten byte) 

The D and Q suffixes apply to the following real ops: 

FADD, FCOM, FCOMP, FDIV, FDIVR, FMUL, FST, FSUB, FSUBR, 
FLD, FSTP ' 

e.g., FADDD, FADDQ, etc. 

The T suffix applies only to FLD and FSTP. 

The W and D suffixes apply to the following integer ops: 

FIADD, FICOM, FICOMP, FIDIV, FIDIVR, FIMUL, FIST, FISUB, 
FISUBR, FILD, FISTP 

The Q suffix for long integers applies only to FILD and FISTP. 

8086/88/87 Assembler Error Messages 

The following error messages are specific to the 8086/88/87 Assembler: 

76: Had label, open parenenthesis then illegality 

77: Expected absolute expression 

73: Both operands connot be a segment register 

79: Illegal pair of index registers 

80: Have to use BX,BP,SI or DI 

81: Illegal constant as first operand 

82: The first operand is needed 

83: The second operand is needed 

84: Expected comma before 2nd operand 

85: Registers stand alone except in indirect 

86: Only 2 registers per operand 

87: Expected label or absolute 

88: Illegal to use BP indirect alone 

89: Close parenthesis expected 

90: Cannot POP CS 

91: Cannot have exchange of r8 with rl6 

92: Segment registers not allowed 

93: ESC external op on left must be const < 64 

94: Only one of the operands can have segment override 

95: Right operand must be a memory location 

96: Left operand must be a 16-bit register 

97: Left operand must be memory or register alone 

98: Op cannot be a segment register or immediate 
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99: Count must be 1 or in CL 

100: A byte constant operand is required 

101: Operand must use or be a label 

102: LOCK followed by something illegal 

103: REP precedes only string operations 

104: Not implemented 

105: Expected a label 

106: 

107: Open parenthesis expected 

108: Expected register alone as right operand 

109: Segovpre then regalone, thats illegal 

110: Only one operand allowed 

111: Operands are AL,op2 for byte MUL, etc. 

112: SP can only be used with the SS segment 

113* MOVBIM only for immediate to memory 

114*: BIMs must be immediate bytes to memory 

115: Seg override on repeated instruction not ok 

116: Segment register expected 

117: (8087) Invalid two-operand format 

118: (8087) Invalid single operand format 

119: (8087) Improper operand field 

120: (8087) Instruction has no operands 

121: No override of ES on string destination 

122: Interseg needs 2 constant or external operands 

123: I/O port must be immediate byte or OX 

124: I/O source/dest register must be AL or AX 

68000 Assembler 
Syntax Conventions 

p-System Adaptable Assembler. 

Absolute addresses in the range 0000H..7FFFH generate the absolute 
short address mode. Absolute short addresses m the range 
F8000H..FFFFFH cannot be generated. 

Absolute addresses in the range 8000H..FFFFH < and external refereace. 
generate the absolute long address mode. Absolute addresses aoove 
FFFFH cannot be generated. 
Any address which can be made PC-relative generates the PC-relative 



Addendum 

Users 1 Manual Supplement 

Version IV 



address mode. 

Absolute immediates above FFFFH cannot be generated. 

Opcodes which have an optional suffix of A,I,M,Q or X must contain 
that suffix explicitly. 

Length qualifiers (.B, .W or .L) must be specified explicitly in those 
instructions which have a choice of length. AH other instructions must 
not contain a length qualifier. 

The following instructions MUST contain a length qualifier: 

ADD, ADDA, ADDI, ADDQ, ADDX, AND, ANDI, ASL (register), ASR 
(register), CLR, CMP, CMPA, CMPI, CMPM, EOR, EORI, EXT, LSL 
(register), LSR (register), MOVE (except special forms), MOVEA, MOVEM, 
MOVEP, NEG, NEGX, NOT, OR, ORI, ROL (register), ROR (register), 
ROXL (register), ROXR (register), SUB, SUBA, SUBI, SUBQ, SUBX, TST 

The following instructions must NOT contain a length qualifier: 

ABCD, ASL (memory), ASR (memory), BCHG, BCLR, BSET, BTST, CHK, 
DBcc, DIVS, DIVU, EXG, JMP, JSR, LEA, LINK, LSL (memory), LSR 
(memory), MOVE to OCR, MOVE to SR, MOVE from SR, MOVE USP, 
MOVEQ, MULS, MULU, NBCD, NOP, PEA, RESET, ROL (memory), 
ROR (memory), ROXL (memory) ROXR (memory), RTE, RSR, RTS, 
SBCD, Sec, STOP, SWAP, TAS, TRAP, TRAPV, UNLK 

The following instructions may contain an optional length qualifier of .S (generate 
short forward branch): 

Bcc, BRA, BSR 

Miscellaneous 

The 68000 processor is byte-addressed and word-oriented. The byte sex is most- 
significant byte first. 

The default constant radix is decimal, and the default list radix is hexadecimal. 
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68000 Error Messages 

The following error messages are specific to the 68000 Assembler: 

76: unrecognizable address mode 

77: address register expected 

78: close paren ')' expected 

79: displacement out of range 

80: index register expected 

81: illegal length qualifier 

82: illegal source address mode 

83: illegal destination address mode 

84: comma ',' expected 

85: length qualifier required 

86: length qualifier not allowed 

87: data register expected 

88: label expected 

89: illegal register list 

90: immediate operand expected 



Addendum 

Users's Manual Supplement 

Version IV 



1. NEW PRODUCT PACKAGE 



The release disks for 'the current release of the p-System are formatted into 
virtual floppies, as with previous Adaptable Systems. However, there are now two 
(rather than three) virtual floppies per disk. Each virtual floppy contains 240 
blocks. The following diagram illustrates the disk images of the virtual floppies: 
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U 
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o r| Floppy !o r| Floppy u 
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c | 

kl 



cl 

kl 

I 



e | 
d I 

I 



The p-System can be configured to use no real numbers, 2-word real numbers, or 
4-word real numbers. For each p-System shipped, there are three Interpreters: one 
for each of these configurations. There are also two Operating Systems: one for 
2-word and one for 4-word reals. 

For whichever language(s) you use, you are shipped two versions of the compiler: 
one for 2-word and one for 4-word, reals, as above. If the language is BASIC or 
FORTRAN, there are also two versions of the runtime library, one for 2-word and 
one for 4-word reals. 

For the Adaptable System, you must supply the FULL Extended SBIOS. The 
printer, remote, and clock routines may simply be stubs, unless you intend to use 
those features, but the routines QUIET and ENABLE must be implemented. These 
are new SBIOS routines, and are described below. 

EVENT is a new BIOS routine that may be called from the SBIOS. You must 
implement a keys-ready event if you wish to use print spooling (described in 
Chapter 5). EVENT itself is described below. 

The actual catalogs of files shipped with each p-System are shown later in the 
section that corresponds to your processor. 

For this release, extended memory is supported on the 8086, but not on the Z80 
and 8080. However, one of the SETUP parameters in the section that discusses 
extended memory does apply to 8080 and Z80 systems. The Segment Alignment 



Addendum 

Users's Manual Supplement 

Version IV 



for the Z80 and the 8080 must be set to 2. 
Z80 and 8080 



This release of the p-System on the Z80 or 8080 may be brought up as described 
in the Version IV.O Installation Guide . The only differences are in the format of 
virtual floppies on each release disk, the distinction between software components 
for 2-word and 4-word reals as described above, and the new SBIOS and BIOS 
routines described below. 



QUIET and ENABLE 

QUIET must disable any P-machine 'events 1 from occurring. The simplest way to 
do this is simply to disable all processor interrupts. If your hardware configuration 
does not allow you to do this, you must devise some other scheme for disabling 
interrupts. 

in the SBIOS jump vector, the offset of QUIET is 54 (hex). 

ENABLE allows P-machine events to occur. This may be done by simply re- 
enabling processor interrupts, or by a scheme that corresponds to the one used by 
QUIET. 

in the SBIOS jump vector, the offset of ENABLE is 57 (hex). 

EVENT 

EVENT is a BIOS routine that may be called from the S8IOS. Its jump vector 
offset is 06 (hex). 

When an SBIOS routine detects a hardware interrupt (such as a key pressed on the 
console's keyboard), it may call EVENT with an appropriate event number. This 
event number may be associated with a semaphore in a high-level language (in 
UCSD Pascal, this is accomplished by the attach intrinsic). 

The events that a user may choose to signal, and what to do with them, are 
entirely up to the user. The event numbers Q..31 are reserved for the p-System's 
use, and the event numbers 32. .63 are available for user definition. 

However, if the user wishes to use print spooling, the SBIOS must call EVENT with 
an event number of 19 whenever a key is pressed on the console. 
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Z80 Adaptable System Fllea 

Here are the directories of the current release disks for the Z80. Note that ther 
is no special disk for utilities: utility programs are shipped on the second image c 
the SYSTEM disk itself. 

The ADAPZ disk: 



STSZ808: 

ST3TEH.I3TCERP 

STSSEH.MSCISyO 

ST3T2M. PASCAL 

3T3TEX.PILZR 

3E1UP.C0DB 

STSISH.LISRART 

< UTTO3ED > 



26 25-Jov-ai 
! 24-&OT-81 

toa 24-Sov-at 

32 2S-Jul-ai 

28 i s-Jui-ai 

o 7— «"«ii-81 

70 



6 
32 

33 
HI 
173 
201 
210 



512 

194 
512 
512 
512 
512 



Daxiflla 
Datafile 
DataXlla 
Codafila 
Codef lie 
DataJTile 



6/6 flles<llstad/ia-4ir>, 210 blocks used, 30 unusad, 30 In largaat 



3T3Z80D: 

3TSTSM.ntTSSP 
ST3T3M.N ISC 1570 
ST333M. PASCAL 
3T3TEK.PIL2R 
3ETTIP.C0D2 
3T3T2M.LI3EART 
< 3OT32D > 



26 23-Sov-31 

1 24-3ov-81 

!08 24-5ov-31 

32 23-Jol-31 

23 I 5-vul-SI 

9 7-Jan-ai 

30 



5 

32 

33 

1^1 

173 
201 
210 



512 
194 
512 
512 
512 
512 



Dataflia 
DataXlIa 
Dataflla 
Codeflla 
Codeflla 
Datafile 



6/6 ;il90<llst»d/la-dlr>, 210 blocks uaad, 30 unused, 30 la lirgoax 



The SYSTEM disk: 



3TS1 : 












3TSTIX. EDITOR 


19 


28-Jui-31 


6 


512 


Codefile 


3TSTSH.3T3TAI 


14 


4—Dee-80 


55 


512 


Datafile 


aZBOCKJER.CODS 


29 


22-.M1-81 


69 


512 


Codaflle 


PATCH. CODE 


34 


3-3oy-31 


98 


512 


Codeflla 


DXSKC3AB53.C0DB 


3 


5-Dec-80 


132 


512 


Codeflla 


PtaTJPARAKS.CODE 


9 


3-Dac-aO 


140 


512 


Codef 11a 


< OTTJSED > 


91 




1*9 






5/6 :ilae<llstad/ln-dir>. H9 blocks mad. 


91 unuaad, 


3T32: 

TALOE.CODB 


12 


2-Dac-aO 


6 


512 


Code* lie 


300T2R.C0DE 


3 


4-Dac-dO 


18 


512 


Codeflla 


DI3I3I23.C0DE 


3 


3-Dec-aO 


21 


512 


Codefile 


SANPL2GOT0 . TEXT 


4 


1 7_8ov-78 


24 


512 


TexTfile 


D2C0DE.C0DE 


23 


5-«ar-81 


23 


512 


Codefile 


C0PTOTPDIR.C0D2 


3 


2-Oac-aO 


56 


512 


Codefile 


MAflEDUPDIR.CODE 


4- 


2-D«c-aO 


59 


512 


Codefile 


IRS7.C0DB 


29 


3-Dec-30 


63 


512 


Codef 11a 


RECOVER. O.CODB 


8 


5-Dec-30 


92 


512 


Codeflla 


H2AL0P3.4.C0DE 


1 1 


21-Aug-d1 


100 


512 


Codeflla 


EIEAXQP3.:2.C0DE 


9 


24-Sor-81 


1 11 


512 


Codeflla 


I3R52L.C0DB 


65 


11-3ep-31 


120 


512 


Codefile 


COHHAITDIO.CODE 


6 


20-Jul-81 


185 


512 


Codeflla 


3CREEH0P3.C0DB 


13 


29-Jun-81 


191 


512 


Codeflla 


LI3RART.C0DE 


13 


6-8oT-31 


204 


512 


Codeflla 


ABSVRIT2.C0DE 


4 


3-D«c-80 


217 


512 


Codef 11a 


< TOU3ED > 


19 




221 






16/16 fllas<llated/ln-dir>, 221 


blocks 


uaad 


, 19 unua 



91 In largest 



19 in largeat 
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8086 Adaptable System Filea 

Here are the current release disks for the 8086 with extended memory. These are 
the only two disl<3 required for the 8086 system. Note that utility programs are 
shipped on the second image of the SYSTEM disk. 



The SYSTEM disk; 

3T3I s 

rrsTss.3DiToa 49 28-Jui-ai 

D2BUOOEB.C0D2 29 22-Jul-ai 

PATCH. CODS 3* 3_5oT-at 

STSTZJ1.3T3TJU 14 4-Dec-30 

DISKCHAaC3,C0DB 3 5-0ec-aO 

?IJDPAHAM3.C0D3 9 3-Dec-30 

< racszD > 91 



5/6 ril»«<listed/la-dir>, 149 



6 

55 

34 

118 

132 

140 

149 

blocki 



3TS2: 

ASM8086.C0D3 

2086.0PCCD33 

3086.3RRCRS 

3087. 70P3 

TALOE.CODE 

20CT2H.C0DS 

DI3TC3I3Z.C0D3 

SA.1P£2G0T0.;:2XT 

decode. code 

ccptdupdir.code 

markditpdir.code 

IP.37.C0DE 

1SC 0TER .G.C0C3 

SCZZZSTZ3T .CODE 

1I3RART.C0DE 

< 7OTSSD > 

: 5/15 riiaa<llat 



60 
5 

I 1 
3 

12 
3 
3 
i 

23 
3 

4 
29 

3 
13 

13 
35 



29-««y-ai 

5-Ma7-31 

a-Mar-ai 

i-?ab-81 
2-0«c-3O 
4-D«c-30 
3-3«c-80 

i 7-Hov-ra 

5-*ar-31 
2-Dea-30 
2-Dec-oO 
3-0ec-€O 
5-Dec-80 
4-v'un— 31 
6-3ot— 31 



512 

512 
512 
512 
512 
512 



Coderile 

Codefile 
Codafile 

DataTile 

cod«m« 

Coderile 



uaed, 91 unuaed, 91 la largest 



6 

65 

71 

82 

35 

97 

100 

103 

107 

135 

133 

142 

171 
179 
192 
205 



512 
52 
130 
512 
512 
512 
512 
512 
512 
512 
512 
512 
512 
512 
512 



Coderile 
DataTUe 
Dm«X11b 
DataTile 
Coderile 
Cod sills 
Coderile 
Ttxtiile 
Codaflls 
Coderile 
Codefile 
Coderile 
Codefile 
Coderile 
Coderila 



ed/la-dlr>, 205 blocks uaad, 35 unuaed, 35 In largeat 



The INTERP disk: 



3 63T3: 














3T3TSS. IXTSRP 


19 


1 3-D»c-31 


6 


512 


Datafila 




3T3T2X.MI3CI5P0 


1 


24-3ov-31 


25 


'94 


DaTiiTile 




ST3TSK. PASCAL 


108 


24-Sor-81 


26 


512 


Danaf lie 




3T3TSM.?rUB 


32 


2S-Jul-31 


134 


512 


Coderile 




327TJP.C0D3 


23 


' 5-Jui-ai 


166 


512 


Coderile 




3T3T2X.1I3HART 


7 


3-?ab-32 


194 


512 


Codarile 




3TST2M.LI5E2H 


26 


27-Jan-S1 


201 


512 


Codarile 




< : raussD > 


13 




227 








7/7 rileo<ii3ted/ 


ln-d 


llr>, 227 blocica uaed, 


1 3 unuaed , 1 3 


la largea 


3 6IST : 
:0M?R233.C0D3 


:o 


3-Dao-80 


6 


512 


Coderila 




ISTSRPI.CODE 


20 


6-OOT-31 


I 8 


512 


Codarile 




I572RPI.2.C0DS 


23 


6-0ct-31 


36 


512 


Codarile 




I3TSRPI.4.C0DE 


24 


5-Oet-81 


5 Q 


512 


Codarile 




R3P.C0DE 


6 


18-3ep-81 


33 


512 


Codarile 




3103. CODS 


6 


26-3ap-31 


39 


512 


Coderile 




3103. C. CODE 


5 


2 6-Sep-81 


95 


512 


Coderile 




3103. CR. CODE 


6 


26— 3«o-ai 


!0i 


512 


Codarile 




3103. CRP. CODE 


6 


26-3ep-81 


107 


512 


Coderile 




73RT300T.CODS 


*T 


1 7— 3«p— 31 


113 


512 


Codarile 




HEAL0P3.2.C0DE 


!0 


21-Au ? -31 


120 


512 


Coderile 




REAL0P3.4.C0DE 


1 1 


21-Aus-SI 


130 


512 


Coderile 




33RNEX.C0DE 


65 


! 1-Sap-31 


141 


512 


Coderile 




CC.1KAOTr0.C0DE 


6 


20-Jul-fil 


206 


512 


Codeflle 




3CR33HOPS.C00E 


13 


29-Jun-31 


212 


5<2 


Coderile 




< JOTJSED > 


'5 




225 








15/15 rilea<liated/l.n-dlr>. 225 


blocics 


1 4a ad 


„ 1 5 unuaed, 1 


5 In larg' 
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1. NEW PRODUCT PACKAGE 



The release disks for the current release of the p-System are formatted into 
virtual floppies, as with previous Adaptable Systems. However, there are now two 
(rather than three) virtual floppies per disk. Each virtual floppy contains 240 
blocks. The following diagram illustrates the disk images of the virtual floppies: 
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The p-System can be configured to use no real numbers, 2-word real numbers, or 
4-word real numbers. For each p-System shipped, there are three Interpreters: one 
for each of these configurations. There are also two Operating Systems: one for 
2-word and one for 4-word reals. 

For whichever language(s) you use, you are shipped two versions of the compiler: 
one for 2- word and one for 4-word reals, as above. If the language is BASIC or 
FORTRAN, there are also two versions of the runtime library, one for 2-word and 
one for 4-word reals. 

For the Adaptable System, you must supply the FULL Extended SBIOS. The 
printer, remote, and clock routines may simply be stubs, unless you intend to use 
those features, but the routines QUIET and ENABLE must be implemented. These 
are new SBIOS routines, and are described below. 

EVENT is a new BIOS routine that may be called from the SBIOS. You must 
implement a keys-ready event if you wish to use print spooling (described in 
Chapter 5). EVENT itself is described below. 

The actual catalogs of files shipped with each p-System are shown later in the 
section that corresponds to your processor. 



1. Z80 and 8080 

This release of the p-System on the Z80 or 8080 may be brought up as described 
in the Version IV.O Installation Guide . The only differences are in the format of 
virtual floppies on each release disk, the distinction between software components 
for 2-word and 4-word reals as described above, and the new SBIOS and BIOS 
routines described below. 



QUIET and ENABLE 

QUIET must disable any P-machine 'events' from occurring. The simplest way to 
do this is simply to disable all processor interrupts. If your hardware configuration 
does not allow you to do this, you must devise some other scheme for disabling 
interrupts. 

In the SBIOS jump vector, the offset of QUIET is 38 (hex). 

ENABLE allows P-machine events to occur. This may be done by simply re- 
enabling processor interrupts, or by a scheme that corresponds to the one used by 
QUIET. 

In the SBIOS jump vector, the offset of ENABLE is 3A (hex). 

EVENT 

EVENT is a BIOS routine that may be called from the SBIOS. Its jump vector 
offset is 04 (hex). 

When an SBIOS routine detects a hardware interrupt (such as a key pressed on the 
console's keyboard), it may call EVENT with an appropriate event number. This 
event number may be associated with a semaphore in a high-level language (in 
UCSD Pascal, this is accomplished by the attach intrinsic). 

The events that a user may choose to signal, and what to do with them, are 
entirely up to the user. The event numbers 0..31 are reserved for the p-System's 
use, and the event numbers 32. .63 are available for user definition. 

However, if the user wishes to use print spooling, the SBIOS must call EVENT with 
an event number of 19 whenever a key is pressed on the console. See Chapter 6 
for more details. 



Adaptable System Files 

Here are the directories of the current release disks for the Z80. Note that there 
is no special disk for utilities: utility programs are shipped on the second image of 
the SYSTEM disk itself. 

The ADAPZ disk: 



SYSZ808: 












SYSTEM. INTERP 


26 


23-Nov-81 


6 


512 


Dataf ile 


SYSTEM. MISCINFO 


1 


24-NOV-81 


32 


194 


Dataf lie 


SYSTEM. PASCAL 


108 


24-Nov-81 


33 


512 


Dataf ile 


SYSTEM. FILER 


32 


28-Jul-81 


141 


512 


Codefile 


SETUP. CODE 


28 


15-Jul-81 


173 


512 


Codef ile 


SYSTEM. LIBRARY 


9 


7-Jan-81 


201 


512 


Da tafil e 


< UNUSED > 


30 




210 






6/6 f iles<listed/in-dir>, 210 bl 


ocks 


used , 


30 unused 


SYSZ80D: 












SYSTEM. INTERP 


26 


23-Nov-Sl 


6 


512 


Dataf ile 


SYSTEM. MISCINFO 


1 


24-Nov-81 


32 


194 


Dataf i le 


SYSTEM. PASCAL 


108 


24-Nov-81 


33 


512 


Dataf ile 


SYSTEM. FILER 


32 


28-Jul-81 


141 


512 


Codefile 


SETUP. CODE 


28 


15-JU1-81 


173 


512 


Codefile 


SYSTEM. LIBRARY 


9 


7-Jan-81 


201 


512 


Dataf ile 


< UNUSED > 


30 




210 







6/6 f iles<listed/in-dir>, 210 blocks used, 30 unused, 30 in largest 

The SYSTEM disk: 

SYSl: 

SYSTEM. EDITOR 49 28-Jul-81 6 512 Codefile 

SYSTEM. SYNTAX 14 4-Dec-80 55 512 Datafile 

DEBUGGER. CODE 29 22-Jul-81 69 512 Codefile 

PATCH. CODE 34 3-Nov-81 98 512 Codefile 

LIBRARY. CODE 13 6-Nov-81 132 512 Codefile 

< UNUSED > 95 145 

5/5 f iles<listed/in-dir>, 145 blocks used, 95 unused, 95 in largest 

SYS2: 

YALOE.CODE 12 2-Dec-80 6 512 Codefile 

BOOTER.CODE 3 4-Dec-80 18 512 Codefile 

DISKCHANGE.CODE 8 5-Dec-80 21 512 Codefile 

DISKSIZE.CODE 3 3-Dec-80 29 512 Codefile 

FINDPARAMS.CODE 9 3-Dec-80 32 512 Codefile 

SAMPLEGOTO.TEXT 4 17-Nov-78 41 512 Textfile 

DECODE. CODE 28 5-Mar-81 45 512 Codefile 

COPYDUPDIR.CODE 3 2-Dec-80 73 512 Codefile 

MARKDUPDIR.CODE 4 2-Dec-80 76 512 Codefile 

XREF.CODE 29 3-Dec-80 80 512 Codefile 

RECOVER. G. CODE 8 5-Dec-80 109 512 Codefile 

REALOPS.4.CODE 11 21-Aug-81 117 512 Codefile 

REAL0PS.Z2.C0DE 9 24-Nov-81 128 512 Codefile 

KERNEL. CODE 65 ll-Sep-81 137 512 Codefile 

COMMANDIO.CODE 6 20-Jul-81 202 512 Codefile 

SCREENOPS.CODE 13 29-Jun-81 208 512 Codefile 

ABSWRITE.CODE 4 3-Dec-80 221 512 Codefile 

< UNUSED > 15 225 

17/17 f iles<listed/in-dir>, 225 blocks used, 15 unused, 15 in largest 



The INTERP disk: 



ZINT: 

INTERP. Z. CODE 
FP0.CODE 
FP2.Z.CODE 
FP4.CODE 
RSP.CODE 
BIOS.CODE 
BIOS. C. CODE 
BIOS. CR. CODE 
BIOS. CRP. CODE 
INTER. CODE 
INTER. X. CODE 
INTER. CPM1. CODE 
INTER. CPM2. CODE 
INTER. CPM4. CODE 
TERTBOOT.CODE 
< UNUSED > 



25 


ll-Nov-81 


6 


512 


Codefile 


4 


ll-Nov-81 


31 


512 


Codefile 


7 


ll-Nov-81 


35 


512 


Codef ile 


8 


ll-Nov-81 


42 


512 


Codefile 


6 


13-NOV-81 


50 


512 


Codefile 


8 


13-Nov-81 


56 


512 


Codefile 


8 


20-Oct-81 


64 


512 


Codefile 


9 


23-Nov-81 


72 


512 


Codefile 


9 


23-Nov-81 


81 


512 


Codefile 


4 


l-Nov-81 


90 


512 


Codefile 


4 


l-Nov-81 


94 


512 


Codefile 


4 


l-Nov-81 


98 


512 


Codefile 


4 


l-Nov-81 


102 


512 


Codefile 


4 


l-Nov-81 


106 


512 


Codefile 


5 


15-Oct-81 


110 


512 


Codefile 


125 




115 






d/ii 


rt-dir>, 115 


blocks 


used 


, 125 unused 



125 in largest 



ASM: 

Z80.ASSMBLER 51 2-Dec-80 6 512 Codefile 

Z80. OPCODES 3 20-Dec-78 57 68 Datafile 

Z80. ERRORS 8 23-Sep-80 60 70 Datafile 

COMPRESS. CODE 10 3-Dec-80 68 512 Codefile 

SYSTEM. LINKER 26 27-Jan-81 78 512 Codefile 

SCREENTEST.CODE 13 4-Jun-81 104 512 Codefile 

CPMBOOT.CODE 22 7-Jan-8l 117 512 Codefile 

< UNUSED > 101 139 

7/7 f iles<listed/in-di r> , 139 blocks used, 101 unused, 101 in largest 



For 8080 Systems, the release disks are the same, except that ADAPZ is replaced 
by ADAP8: 

SYS808: 

SYSTEM. INTERP 27 23-Nov-81 6 512 Datafile 

SYSTEM. MISCINFO 1 24-Nov-81 33 194 Datafile 

SYSTEM. PASCAL 108 24-Nov-81 34 512 Datafile 

SYSTEM. FILER 32 28-Jul-81 142 512 Codefile 

SETUP. CODE 28 15-Jul-81 174 512 Codefile 

SYSTEM. LIBRARY 9 7-Jan-81 202 512 Datafile 

< UNUSED > 29 211 

6/6 f iles<listed/in-dir> , 211 blocks used, 29 unused, 29 in largest 

SYS80D: 

SYSTEM. INTERP 27 23-NOV-81 6 512 Datafile 

SYSTEM. MISCINFO 1 24-Nov-81 33 194 Datafile 

SYSTEM. PASCAL 108 24-Nov-81 34 512 Datafile 

SYSTEM. FILER 32 28-Jul-81 142 512 Codefile 

SETUP. CODE 28 15-Jul-81 174 512 Codefile 

SYSTEM. LIBRARY 9 7-Jan-81 202 512 Datafile 

< UNUSED > 29 211 

6/6 f iles<l isted/in-di r> , 211 blocks used, 29 unused, 29 in largest 



2. CP/M Adaptable System 

This release of the Adaptable p-System for CP/M may be brought up as described 
in the Version IV.O Installation Guide . When CP/M is Used to bootstrap the p- 
System, the only differences are in the format of virtual floppies on each release 
disk, and the distinction between software components for 2-word and 4-word reals, 
as described above. 

However, if the user wishes to use print spooling (described in Chapter 5), then a 
new Extended SBIOS must be written, and it must implement QUIET, E NABl -L, and 
the keys-ready interrupt (by calling EVENT). These routines are described above in 
the section on the full Adaptable System. 

CP/M Adaptable System Files 

The CP/M release is identical to the Z80 or 8080 release, e'xcept that the ADAPZ 
or ADAP8 disk is replaced by the CPMADAP disk: 

SYSCPM: 
SYSTEM. INTERP 
SYSTEM. MISCINFO 
SYSTEM. PASCAL 
SYSTEM. FILER 
SETUP. CODE 
CPM2. INTERP 
SYSTEM. LIBRARY 
< UNUSED > 



27 23-Nov-Bl 


6 


512 


Dataf ile 




1 24-Nov-81 


33 


194 


Data file 




108 24-NOV-81 


34 


512 


Dataf He 




32 28-Jul-81 


142 


512 


Codef ile 




28 15-Jul-81 


174 


512 


Codef lie 




27 24-Nov-81 


202 


512 


Dataf ile 




9 7-Jan-81 


229 


512 


Dataf ile 




2 


238 








in-dir>, 238 blocks 


used, 


2 unused, 2 i 


n largest 


27 23-Nov-81 


6 


512 


Dataf He 




1 24-NOV-81 


33 


194 


Dataf ile 




108 24-Nov-81 


34 


512 


Dataf ile 




32 28-Jul-81 


142 


512 


Codef ile 




28 15-JU1-81 


174 


512 


Codef ile 




9 7-Jan-81 


202 


512 


Dataf He 




29 


211 









SYS808: 
SYSTEM. INTERP 
SYSTEM. MISCINFO 
SYSTEM. PASCAL 
SYSTEM. FILER 
SETUP. CODE 
SYSTEM. LIBRARY 

6/6 files<listed/in-dir>, 211 blocks used, 29 unused, 29 in largest 

Note that as above, utility programs are shipped on the second image of the 
SYSTEM disk. 



3. 8086 

This section describes the bootstraps, SBIOS interface, and BIOS interface for the 
8086. You should already be familiar with an Adaptable System, as described in 
the Installation Guide . 

8086 systems that run Version IV can take advantage of extended memory. This is 
described in Chapter 3 of this booklet. 

The P-machine emulator ("interpreter") for the 8086 is broken into several modules. 
These are: 

1) The main part of the Interpreter. 

2) The RSP (Runtime Support Package). 

3) The BIOS (Basic I/O Subsystem). 

4) The tertiary bootstrap routine. 

To use the 8086 Interpreter, the following modules (with their object code 
filenames to the right) must be linked together: 

Interpreter INTERPX.CODE or 

INTERPX.2.CODE or 

INTERPX.4.CODE 
Runtime Support Package RSP.CODE 

BIOS BIOS.CODE or 

BIOS.C.CODE or 

BIOS.CR.CODE or 

BIOS.CRP.CODE 
Tertiary Bootstrap TERTBOOT.CODE 

The user is responsible for supplying SBIOS routines, as described in the 
Installation Guide . 

The SYSTEM. INTERP supplied on the release disks contains no floating point 
support or I/O character queuing (INTERPX.CODE, RSP.CODE, BIOS.CODE, and 
TERTBOOT.CODE). 

The '2' and '4' in the Interpreter codefiles distinguish between the 2-word and 4- 
word floating point packages. The Operating System must contain routines that 
use the corresponding floating point size (REALOPS unit in SYSTEM.PASCAL) if 
real numbers are to be used. 

The 'C, 'CR', and 'CRP' in the BIOS code files indicate console, remote port, and 
printer character input queuing, as stated in the Installation Guide . 

After linking, the utility program COMPRESS (described in the Users' Manual) must 
be run to form a memory image file of the Interpreter. The answers to the 



questions asked by COMPRESS are: NO relocatable output, base address = 0, the 
linker output file, and the desired filename (such as SYSTEM. INTERP). 

Bootstrapping the p-System 

The steps necessary to get the Adaptable p-System started are described here. 
Please note that all address values are to be set relative to the CS register (i.e., 
the Interpreter load point specified by the user). 

1. Load the primary bootstrap (Track 0, Sectors 1 and 2) and the user 
supplied SBIOS. 

2. Set the Stack Pointer to any unused (but VALID) address value (such as 
C000). The SP register will be reset to MEMTOP at the start of the 
TERTBOOT routine, so the value set here is not critical. Push the Adaptable 
System parameters onto the Stack as indicated in the* Installation Guide . As 
previously stated, all address values are relative to the Interpreter load point. 
(See below.) 

3. Set the CS register to the desired base (load point) of the Interpreter. 

4. Do a short (intrasegment) jump to the bootstrap address (8000H — CS- 
relattve). (The CS register may also be set by making a long {intersegment} 
jump.) This invokes the primary bootstrap. 

The primary bootstrap reads the secondary bootstrap from disk and jumps to it. 
The secondary bootstrap finds the Interpreter, reads it in, and jumps to the 
tertiary bootstrap (which is part of the Interpreter). Once the System is up 
and running, a user may wish to simplify the bootstrapping mechanism (see the 
Installation Guide). 



SBIOS Interface 



The SBIOS routines are called from the BIOS through an address vector (NOT a 
jump vector, as with other processors). The following table briefly defines this 
interface. Addresses pointed to by the vector offsets are CS-relative. 



Routine 

SYSINIT 

SYSHALT 

CONINIT 

CONSTAT 

CONREAD 

CONWRIT 

SETDISK 

SETTRAK 

SETSECT 

SETBUFR 

DSKREAD 

DSKWRIT 

DSKINIT 

DSKSTRT 

DSKSTOP 

PRNINIT 

PRNSTAT 

PRNREAD 

PRNWRIT 
REMINIT 



Vector offset 

00 

02 

04 

06 

08 

0A 

0C 

0E 

10 

12 

14 

16 

18 

1A 

1C 

IE 

20 

22 

24 
26 



Inputs 



Outputs 



AX = pointer to Interpreter 
jump table 



AH 



ioresult 



AH = ioresult 

AL = char present 



AH 

AL 



ioresult 
char 



AL = char AH = ioresult 

AL = current disk 

AL = current track 

AL = current sector 

AX = buffer addr (ES-relative) 

AH = ioresult 
AH = ioresult 
AH = ioresult 



AH 



ioresult 



AH = ioresult 

AL = char present 

AH = ioresult 

AL = char 



AL 



char 



AH 
AH 



ioresult 
ioresult 



8 



REMSTAT 



28 



REMREAD 2A 

REMWRIT 2C 

USRINIT 2E 

USRSTAT 30 



USRREAD 



USRWRIT 



32 



34 



CLKREAD 36 



AL = char 

AL = unit // 

TOS(SP)->retum 
i/o toggle 
"statrec 
device // 

TOS(SP)->retum addr 
block # 
byte count 
'buffer (DS-rel) 
device // 
control word 



AH 


= 


ioresult 


AL 


= 


char present 


AH 


= 


ioresult 


AL 


= 


char 


AH 


= 


ioresult 


AH 


_ 


ioresult 



TOS(SP)->retum addr 




block # 




byte count 




"buffer (DS-rel) 




device // 




control word 




AH = 


ioresult 


DX = 


high word 


CX = 


low word 



QUIET 
ENABLE 



38 
3A 



Notes on the SBIOS: 

1. The SBIOS must be assembled relative to zero (i.e., with no ORG 
directive), and relocated to its load address (relative to the CS or DS register) 
by using the COMPRESS utility. 

2. The SBIOS is responsible for ensuring that the SS, DS, and CS registers are 
restored to the same state as at entry. All other registers are available for 
use. 



3. The SBIOS vector contains only addresses, not jump instructions. 



4. All SBIOS routines are CALLed indirectly from the BIOS through the 
vector. To return to the BIOS, a RET instruction is all that is needed (these 
calls and returns are short (intrasegment) CALLs and RETs). 

5. The 8086 Adaptable System requires an Extended SBIOS (all of the above 
entry points). If user, remote, clock, or printers are not present, the routine 
should simply return an ioresult of 9 (offline). 

6. QUIET and ENABLE are new entry points not documented in the 
Installation Guide . QUIET contains the functions necessary to disable P- 
machine 'events' from occurring. ENABLE allows events to occur. In most 
systems, the disable and enable interrupts functions (respectively) are all that 
are necessary (CLI and STI processor commands). A few hardware 
configurations may not permit the global disabling of processor interrupts, so 
some other scheme must be devised. 

7. The routine vector passed to SYSINIT is described below. 



BIOS Routines Accessible to the SBIOS 

The use of the new routine EVENT is described in Chapter 6 of this booklet, which 
discusses interrupt handling. 

If you intend to use print spooling, then you must use EVENT to signal a keys- 
ready interrupt (event number 19). See Chapter 5 of this booklet for more details. 



Routine 


Vector offset 


Inputs 


POLLUNITS 


00 




DSKCHNG 


02 


BX = "disk descriptor block 
(//tracks 
//sectors 
sector size 
interleaving 
skew 
first track) 



EVENT 



04 



DI = event // 



The Primary Bootstrap 

The primary bootstrap must be assembled relative to zero (i.e., without an ORG 
directive), and relocated to 8000H by using the utility COMPRESS (described in the 
Users' Manual) . 

The address of the Interpreter must be set to zero. The CS register must be set 
to the desired Interpreter base (shifted right by 4 bits). The bootstrapping and 
interpretation are relative to this CS value. The DS, ES, and SS registers will be 



10 



set to the same value by the bootstrap. (ALL address values within the SBIOS 
must be relative to this CS value.) . 

The following parameters must be on the stack: 

TOS --> SBIOS tester parameter (ignored by primary boot) 
address of Interpreter (CS-relative) 
address of SBIOS (CS-relative) 

address of low word of contiguous memory (CS-relative) 
address of high word of contiguous memory (CS-relative) 
number of tracks on boot disk 
number of sectors per track 
number of bytes per sector 

interleaving factor 

first interleaved track 

track-to-track skew 

maximum number of sectors in table 

maximum number of bytes per sector 

The primary bootstrap must pop these values from the Stack, load the SBIOS, and 
call th" r SBIOS SYSINIT routine. It must then read in the secondary bootstrap, 
which is located on Track 0. 

Next, the primary bootstrap must push the following values onto the Stack: 

TOS --> address of Interpreter (relative to CS) 
address of SBIOS (CS-relative) 

address of low word of contiguous memory (CS-relative) 
address of high word of contiguous memory (CS-relative) 
number of tracks on boot disk 
number of sectors per track 
number of bytes per sector 

interleaving factor 

first interleaved track 

track-to-track skew 

maximum number of sectors in table 

maximum number of bytes per sector 

(Note that these values are the same as before, except that the SBIOS test 
parameter is no longer present.) 

Finally, the primary bootstrap must jump to the secondary bootstrap. 

The Secondary Bootstrap 

Like the primary bootstrap, the secondary bootstrap must be assembled relative to 
zero (no ORG). It must be linked with a copy of the BIOS, and relocated to 
8200H by using the utility COMPRESS. 

Again, the CS register must be set to the Interpreter load address, and the DS, 

11 



ES, and SS registers must be set to the same value. 
The secondary bootstrap carries out the following steps: 

1. Pop the parameters off the Stack. 

2. Allocate the sector translation table in high memory. 

3. Allocate the partial sector read buffer. 

4 Update the value of the "address of the highest word of contiguous 
memory" parameter (to protect the tables just allocated). 

5. Call the BIOS routines SYSIN, CONSIN, and DSKIN (for the booting drive). 
These routines must be called in this order. 

6. Read the directory from the booting disk. 

7. Read the Interpreter into the desired location (i.e., the value in CS), 

8. Restack the parameters for the tertiary bootstrap, as follows: 

TOS — > unit number of boot disk 

address of Interpreter (CS-relative) 

address of SBIOS (CS-relative) 

addr of low word of contiguous memory (CS-relative) 

addr of high word of contiguous memory (CS-relative) 

number of tracks on boot disk 

number of sectors per track 

number of bytes per sector 

interleaving factor 

first interleaved track 

track-to-track skew . 

pointer to sector translation table (CS-relative) 

pointer to partial sector read buffer (CS-relative) 

9. Do a short (intrasegment) jump to the tertiary bootstrap (indirectly through 
the Interpreter load address). 

The Tertiary Bootstrap 

The tertiary bootstrap must be linked with the Interpreter, RSP, and BIOS. It is 
the LAST "module" within this codefile. 

Once the tertiary bootstrap has been run, the memory it occupies is once again 
available to the System. 

These are the steps that the tertiary bootstrap must follow: 

1. Set the DS and ES registers to the value in CS (Interpreter load point). 

12 



2. Pop the parameters off the Stack, and pass them to the BIOS. 

3. Call the BIOS SYSIN routine. 

4. Do a unitclear on the console. 

5. Get the "address of the highest word of contiguous memory" parameter, 
and set the Stack pointer to this value. 

6. Do a unitclear on the booting disk drive. 

7. Read the directory of the booting drive, find SYSTEM.PASCAL, and read in 
its segments 1 and 15. 

8. Build the Operating System data structures. 

9. Set up the divide-by-zero interrupt. 

10. Put the CS value into the common block of the Interpreter (this is for 
the Native Code Generator (CODEGEN) jump). 

11. Jump to the Interpreter's fetch loop. 



13 



The BIOS Interface 



The BIOS routines are called from the RSP through an address vector. The 
following table briefly defines this interface. The return address in the RSP is 
always on the top of stack at the call. 



Routine 


Vector 


offset 


Inputs Outputs 






CONSRD 


00 








AH = ioresult 
AL = char 


CONSWR 


02 




AL = char 




AH = ioresult 


CONSIN 


04 




TOS -> "break 
"syscom 


routine 


AH = ioresult 


CONSST 


06 




TOS -> "status 


record 


AH = ioresult 



control word 



PRNRD 



08 



PRNWR 


0A 


PRNIN 


OC 


PRNST 


0E 



AL = char 



TOS = "status record 
control word 



AH 


= ioresult 


AL 


= char 


AH 


= ioresult 


AH 


= ioresult 


AH 


= ioresult 



DSKRD 



10 



TOS = block // 
byte count 
"buffer (ES-relative) 
drive // (0..5) 
control word 



AH = ioresult 



DSKWR 



12 



TOS = block // AH 

byte count 
"buffer (ES-relative) 
drive // (0..5) 
control word 



ioresult 



DSKIN 
DSKST 



14 
16 



CL = drive # (0..5) 

CL = drive // (0..5) 
TOS = "status record 
control word 



AH 



ioresult 



REMRD 



18 



AH 
AL 



ioresult 
char 



14 



REMWR 


1A 


REMIN 


1C 


REMST 


IE 



USERRD 



USERWR 



USERIN 
USERST 

SYSRD 
SYSWR 
SYSIN 
SYSST 



20 



22 



24 
26 

28 

2A 

2C 

2E 



AL = char 



TOS = "status record 
control word 

TOS -> block // 
byte count 
"buffer (DS-rel) 
device // 
control word 

TOS -> block // 
byte count 
"buffer (DS-rel) 
device // 
control word 

AL = unit // 

TOS -> i/o toggle 
"statrec 
device // 



TOS -> "statrec 

control word 



AH = ioresult 
AH = ioresult 
AH = ioresult 



AH = ioresult 



statrec[0] = hiram 
statrec[l] = clock(lo) 
statrec[2] = clock(hi) 
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8086 Adaptable System Files 

Here are the directories of the current release disks for the 8086: 



The SYSTEM disk: 



SYS1: 

SYSTEM. EDITOR 


49 


28-Jul-81 


6 


512 


CodeElle 


DEBUGGER. CODE 


29 


2 2-Jul-81 


55 


512 


CodeEile 


PATCH. CODE 


34 


3-Nov-Sl 


84 


512 


CodeElle 


SYSTEM. SYNTAX 


14 


4-Dec-80 


118 


512 


DataEile 


< UNUSED > 


108 




132 






4/4 f iles<llsted/ln-dir> , 132 bl 


acks 


jsed , 


108 unused 


SYS2: 
ASM8086.CODE 


60 


29-May-81 


5 


512 


CodeElle 


8086. OPCODES 


5 


S-May-61 


66 


52 


Da ta£l le 


8086. ERRORS 


11 


8-May-81 


71 


130 


DataEile 


8087. FOPS 


3 


4-Feb-81 


82 


512 


DataEile 


YALOE.CODE 


12 


2-Dec-80 


85 


512 


CodeElle 


BOOTER.CODE 


3 


4-Dec-80 


97 


512 


CodeElle 


DISKCHANGE.CODE 


3 


5-Oec-80 


130 


512 


Codefile 


DISKSIZE.CODE 


3 


3-Oec-80 


108 


512 


CodeElle 


FINDPARAMS.CODE 


9 


3-Dec-80 


111 


512 


CodeElle 


SAMPLEGOTO.TEXT 


4 


17-NOV-78 


120 


512 


TextElle 


DECODE. CODE 


28 


5~Mar-81 


124 


512 


CodeEile 


COPYDUPDIR.CODE 


3 


2-Dec-80 


152 


512 


CodeEile 


MARKDUPDIR.CODE 


4 


2-Dec-80 


155 


512 


CodeElle 


XREF.CODE 


29 


3-Dec-80 


159 


512 


CodeEile 


RECOVER. G. CODE 


8 


5-Dec-80 


188 


512 


CodeEile 


SCREENTEST.CODE 


13 


4-Jun-81 


196 


512 


CodeEile 


LIBRARY. CODE 


13 


6-NOV-81 


209 


512 


CodeEile 


ABSWRITE.CODE 


4 


3-Oec-80 


222 


512 


Codefile 


< UNUSED > 


14 




226 






18/18 £iles<listad/i 


n-dlr>, 226 


bloc 


is use 


i, 14 unus 



108 in largest 



The INTERP disk: 



86SYS: 

SYSTEM. INTERP 
SYSTEM. MISCINFO 
SYSTEM. PASCAL 
SYSTEM. FILER 
SETUP. CODE 
SYSTEM. LIBRARY 
SYSTEM. LINKER 
< UNUSED > 



19 15-Dec-8 

1 24-Nov-S 

108 24-Nov-S 

32 28-Jul-8 

28 15-Jul-8 

9 23-Sep-8 

26 27-Jan-8 

11 



6 
25 
26 
134 
166 
194 
203 
229 



512 
194 
512 
512 
512 
512 
512 



DataEile 
DataEl le 
DataEile 
Codefile 
CodeElle 
DataE He 
CodeE i.1 e 



7/7 files<listed/in-dlr>, 229 blocks used, 11 unused, 11 in largest 



86INT: 

COMPRESS. CODE 
INTERPX.CODE 
INTERPX.2.CODE 
INTERPX. 4 .CODE 
RSP.CODE 
BIOS. CODE 
BIOS. C. CODE 
BIOS. CR. CODE 
BIOS. CRP. CODE 
TERTBOOT.CODE 
REALOPS.2.CODE 
REALOPS.4.CODE 
KERNEL. CODE 
COMMANDIO.CODE 
SCREENOPS.CODE 
< UNUSED > 



3-Dec-80 

6-Oct-31 

6-Oct-81 

6-Oct-81 

18-Sep-81 

26-Sep-Bl 

26-Sep-81 

26-Sep-81 

26-Sep-Bl 

17-Sep-81 

10 21-Aug-8l 

11 21-Aug-81 
65 ll-Sep-81 

6 20-Jul-81 
13 29-Jun-81 
15 



10 

20 

23 

24 

6 

6 

6 

6 

6 

7 



6 

16 

36 

59 

83 

89 

95 

131 

107 

113 

120 

130 

141 

206 

212 

225 



512 

512 
512 
512 
512 
512 
512 
512 
512 
512 
512 
512 
512 
512 
512 



Codef I le 
CodeE i le 
CodeEile 
CodeElle 
Codefile 
Codef He 
Codefile 
Codefile 
Codef i le 
Codefile 
CodeEile 
Codefile 
Codefile 
Codefile 
Codefile 



15/15 files<listed/in-dlr>, 225 blocks used, 15 unused, 15 in largest 

These are the only two disks required for the 8086 system, 
programs are shipped on the second image of the SYSTEM disk. 



Note that utility 
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2. SYMBOLIC DEBUGGER 

This product is available on all processors that support the. current release. 

This chapter describes the Debugger utility. The Debugger can be used 1 as an aid 
to debugging compiled programs. It can be invoked from the man System 
oromptUne, 9 or during the execution of a program (when a breakpoint is 
^countered). Memory' may be displayed and altered, P-code may be s.ngle- 
stepped, Markstack chains may be displayed and traversed, and so forth. 

There are no promptlines explaining the Debugger commands because such prompts 
would detract from the information displayed by the Debugger itself. When a 
command is entered, there are usually several prompts that may ask for further 
information such as a segment name, variable offset, and so forth. 

In order to use the Debugger properly, it is necessary to be familiar with the 
UCSD P-machine architect. The' user should understand the P-code operators 
Stack usage, variable and parameter allocation, and so forth. These topics are 
discussed in the Internal Ar chitecture Guide. 

information, and should be current. 

You should be aware that the Debugger is a low-level tool and as such must be 
used with caution. If the Debugger is used incorrectly, the System can die. 

It is easier to use the Debugger if the code being debugged has been compiled 
with the $D + option (the Users' Manual describes compiler opt.ons in general). 
The $D option (which defaulIsTo^TlnTtructs the Compiler to output symbo hc 
debugger information for those portions of a program that are compiled with $D+ 
N.rnpH on Variables within a given routine may be specified by name (rather than 
data segment Tffaet number? if at least one statement within that routine is 
compiled $D+. Breakpoints may be specified by line number (rather than P-code 
of 3 number) for ail statements covered by the $D + option. Once a program is 
debugged however, it should be recompiled without symbolic debugger informal, 
because this information increases the size of the codefile. 

Basic Debugger Commands 

ThP nphuooer mav be entered from the main System promptline by typjng 'D'. 
T W h henevt U Se er De m bu y g ger 8 is entered ,n a 'fresh' state the ^*f*£j>'%£ 
IIV anoears and a '(' is displayed on the second line. Being in a fresh state 
mVin. PP tS!t the Debugger wVnot previously aotive and "0 b'eaUPOln ts are 
currently enabled. If the Debugger is entered in a non-fresh state, only the ( 
appears. 

Manv of the Debugger commands require two characters (such as "LP' for L(ist 
P(code o W for L(ist R(egister). If, after typing the first character you 
decide' to exit the command, simply type <s P ace> and the mam mode of the 
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Debugger is re-invoked. 

The Debugger may be exited by typing Q(uit, R(esume, or 5(tep. If the Debugger 
is exited using the Q(uit option, it is disabled. If it is later re-invoked, it .s in a 
'fresh' state If the Debugger is exited using the R(esume option, execution 
continues from where it left off and the Debugger is still active. If it is then re- 
invoked, it is in a 'non-fresh' state. If the Debugger is exited by using the S(tep 
option, a single P-code operator is executed and then the Debugger is 
automatically re-invoked (in a 'non-fresh' state). 

If a program is running under the Debugger's R(esume command, it may force a 
return to the Debugger by calling the halt intrinsic (described in the UserjL 
Manual) . In fact, ANY runtime error causes a return to the Debugger, it the 
Debugger is active while the program is running. 

If you wish to enter the Debugger while a program is running, but do not wish to 
alter the program's code at all, the Debugger itself may be used to set 
breakpoints. 

Breakpoints are handled by typing 'B' for Breakpoint. After 'B' is typed, one of 
the following commands must be used: S(et, R(emove, or Ldst. 

If '5' is typed (after the 'B'), then a breakpoint may be set. The user may have, 
at most, five breakpoints numbered through 4. The first prompt is Set Break 
//■>': a digit 0..4 should be typed followed by <space>. The next prompt is 
'Seqname'?': the name of the desired segment should be typed followed by <space>. 
Then 'Procname or //?' appears: the number of the desired procedure OR the first 
eiqht characters of the valid procedure name should be typed followed by <space> 
If a procedure number is entered, then 'Offset #?' appears: the desired offset 
within the procedure should be typed followed by <space>. If a procedure name is 
entered after the Procname or //' prompt, the following line is displayed: Tirst 
// Last // Line iP' . The underlines are actually numbers that indicate the Tirst 
arTd last lin~e numbers. The desired line number within the specified range should 
be entered. A breakpoint is then set and if, during execution resumption, that 
segment, procedure, and offset are encountered, the Debugger is automatically re- 
invoked. 

Note: Under the Breakpoint command, the "First //__ Last //_» information can be 
displayed ONLY if the Debugger finds symbolic debugger information in the 
codefile; that is, this mode can only be used if you have included a l$D+} compiler 
option within the procedure where you wish to place a breakpoint. 

Whether you set breakpoints by segment and offset number, or by procedure name 
and line number, it should be evident that having a compiled listing of your 
program will make it far easier to determine where the breakpoint is. 

When setting a breakpoint, a space may be typed for the break number, segment 
name etc. Rather than exiting the breakpoint command (as would happen with 
other commands), the previous breakpoint's information is used. For example, if it 
is desired to break in the same segment and procedure but with a different offset, 
a space may be typed for everything except the offset. 
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If after typing Breakpoint, an 'R' is typed, a breakpoint may be removed. The 
oromot -Remove break itV appears. To remove a breakpoint, type .ts number 



promp 

followed by a <space>. 

If after typing Breakpoint, an 1/ is typed, the current breakpoints are listed. 

The Debuqqer may be memlocked or memswapped (see the descriptions of those 
IitrinScS by using "the M(emory command at the outer level. 'ML' memlocks and 
'MS' memswaps the Debugger. 

Displaying and Altering Memory 

The V(ar command allows data segment memory to be displayed. This is another 
Iwo-cha acTer command and may be followed by G(lobal, L(ocal, intermediate 

, u l -" aiav - , ,. , . tvDec < the prompt ^arname or Onset 

^ptrs- fheTe t£i o set in" the daU^gmint 'or variable name should be 
fvoe CNot'e: tjply "Onset f appears if symbolic dabuggar information cannot be 

ound') If " " is typed, "Delta Lex Level?" is also prompted (when an offset 
number is input). l/'E" Is typed, the prompts "Sag #- anc I Wfset /'are displayed 
(extended variables may not be specified symbolically). If P is typed, an onset 
with? .a specified procedure may be displayed: 'Segment name?', 'Procname or #? 
and -Varname or Offset //?' are all prompted in sequence. 

When any of the non-symbolic options are used, a line similar to the following is 
displayed: 
( 1) S = INIT P//1 VO//1 2C1A: OB 05 53 43 41 4C 43 61 -SCALCa 

In this examole a Local (1) segment of memory is displayed. The segment is INIT, 

nrocedure ] "variable offse 1 at absolute hex location 2C1A. Following this eight 

D r y°tes are displayed, first in HEX and then in ASCII (a '-' indicates that the 
character is not a printable ASCII character). 

If the desired variable had been entered symbolically, the following line would 
appear: 
(1)S=INIT P=FILLTABL V = TABLE1 2C1A: OB 05 53 43 41 AC 43 61 -SCALCa 

It is possible to change the frame of reference from which the global, local and 
intermediate variables are viewed. This can be done by using the C(ha.n 
command After 'C is typed the following three options are available: Up, D(own 
andTSt If -L' is typed, all of the currently existing mark stacks are displayed, 
wUh the most recently created one first. An entry in the list resembles the 

following: 
(ms) S=HEAPOPS P//3 OZ/23 msstat = 347C msdyn=F0A0 msipc = 01DA msenv = FEE8 

If the Up or D(own options are used, the frame of reference moves up or down 
one link and variable listings (using the -V' command) change accord.ngly. 
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After a line has been displayed by the V(ar command, a '+' or '-' may be typed. 
This displays the succeeding or preceding eight bytes of memory. If a '/' is typed, 
then the line displayed above it may be altered in hex mode. If a ' ' is typed, 
then the line displayed above it may be altered in ASCII mode. When altering in 
hex mode, any characters that are to be left unchanged may be skipped by typing 
<space>. In the ASCII mode, any characters to be left unchanged may be skipped 
by typing <return>. 

A text file may be viewed from the debugger by typing F(ile. The 'Filename?' 
'First line //?' and "Last line //?' prompts are then displayed. This command lists 
as many lines as possible in the window between 'first line' and 'last line' of the 
indicated file. 

Further Single-Stepping Options 

When the single-stepping mode (the S(tep command described above) is used, one P- 
code operator is executed at a time. When control is returned to the Debugger, it 
displays various pieces of information if they are desired. In order to select what 
will be displayed, the E(nable mode should be used. After typing 'E', the following 
options are available: R(egister, P(code, M(arkstack, A(ddress, and L(oad. Any or 
all of these options may be enabled at the same time. 

If R(egister is enabled, a line such as the following is displayed after each single 
step: 

(rg) mp = F082 sp = F09C erec = FEE8 seg = 9782 ipc = 01C3 tib = 0493 rdyq=2EBC 

If P(code is enabled, a line such as the following is displayed after each step: 

(cd) S=HEAPOPS P//3 OZ/23 LLA 1 

If M(arkstack is enabled, a line such as the following is displayed after each step: 

(ms) S = HEAPOPS P//3 OZ/23 msstat = 347C msdyn = F0A0 msipc = 01DA msenv = FEE8 

If A(ddress is enabled, a line such as the following is displayed after each step: 

(a ) S=HEAPOPS P//3 0//23 2C1A: OB 05 53 43 41 4C 43 61 -SCALCa 

In order to initialize this address to a given value, there is an A(ddress mode at 
the outer level. When 'A' is typed, 'Address ?' appears. An absolute address, in 
hex, should be typed in. At this point, eight bytes are displayed starting at that 
address. Also, that address is now displayed if the E(nable A(ddress option is on. 

Enabling E(very causes all of the above options to be enabled. 

The D(isable mode disables any of the options just described. The L(ist mode lists 
any of the above options. 
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Segment 
ine 



AUn a t the outer level, there is- a P(code option. This option asks for 'Segm. 
namV P cnate or #?', and either Tirst //_ Last //_', /Start Lhe #7, End L 
, a ? me np * -st° t Offset //?', 'End Offset //?'. This command disassembles the 
fndlcated portly of code. ' This may be useful during single-step mode if you wish 
to look : ahead in the P-code stream. This mode may be exited before it reaches 
the ending offset by typing <break>; control returns to the Debugger. 

Example of Debugger Usage 

Suppose the following program is to be debugged: 
Pascal Compiler IV.O 

1 0:d 1 {$L LIST. TEXT} 

2 2 l:d 1 PROGRAM NOT _DEBLGGED; 

3 2 ltd 1 VAR I, 3, K: INTEGER; 

4 2 l:d 4 Bl,B2:BOOLEAN; 

5 2 1:0 BEGIN 

6 2 1:10 I : = 1; 

7 2 1:13 J : =1 ; 

8 2 1-16 IF K <> 1 THEN WRITELN 

( 'Whats wrong?' ) ; 

9 2 :0 END. 

End of Comp i lat i on . 
First we enter the Debugger and set a breakpoint at the beginning of the IF 
statement: 

(BS) Set break iP. Segname? NOTDEBUG Procname or //? 1 Offset //? 6 

(EP) 

(R) 

After setting the breakpoint we enable P-code (EP) and resume (R). Now we 
execute the program above, and when it reaches offset 6, the Debugger is entered. 
We single-step twice: 

Hit break #0 at S = NOTDEBUG P//1 OZ/6 
(cd) S=NOTDEBUG P//1 O06 SLDOl 
(cd) S = NOTDEBUG P//1 OZ/7 SLDC1 
(cd) S = NOTDEBUG P//1 OZ/8 NEQUI 

We see that our first single-step did a short load global 1. (Note: This put K on 
The stack K is NOT global 3; I is global 3, 3 is global 2, and K is global 1. 
Every string of variables' (such as 1, 3, K' in a declaration) is allocated 
order Boolean Bl, which follows, is at offset 5, and B2 is at offset 4. 
d r ItPr, on the o her hand, ARE allocated in the order in which they appear.) 
?he Teco e nd sing e-ste^ did a short load constant 1 onto the Stack. Now we are 
Ibout to dVan'intege'r comparison «». But this is where our error shows up, so 
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we decide to look at what is on the Stack before doing this comparison: 

(LR) 

(rg) mp=EB62 sp = EB82 erec= ... 

(A ) Address? EB82 

( a ) EB82: 01 00 C5 14 ... 

We list the registers and then look at the memory address that sp points to. 
What we discover is a 1 on top of the stack (01 00: this is a least-sigmficant- 
bvte-first machine) followed by a word of what appears to be garbage. This leads 
us to suspect that K was not initialized. Looking over the listing, we quickly 
realize that this is the case. 
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Summary of the 

A(dress 

B(reak point 
S(et 

R(emove 
L(ist 

C(hain 

Up 

D(own 

L(ist 

D( is able 

E(nable 

F(ile 

L(ist 

R(egister 

P(code 

M(arkstack 

A(ddress 

E(very 

M(emory 
L(ock 
S(wap 

P(code 

Q(uit 

R(esume 

S(tep 

V(ariable 
GCloba! 
L(ocal 
I(nter 
P(roc 
E(xtended 



Commands 

Displays a given address 

Segment, procedure and offset must be specified 
Allows a break point (0 through 4) to be set 
Allows a break point to be removed 
Lists current break points 

Changes frame of reference for V(ariable command 
Chains up mark stack links 
Chains down mark stack links 
Lists current mark stacks 

Disables the following from being displayed 

Enables the following to be displayed during single step 

Allows viewing of text files 

Lists the following 

The registers: mp, sp, erec, seg, ipc, tib, rdyq 

Current P-code mnemonic 

Mark stack display 

A given address 

All of the above 

Memlocks the Debugger 
Memswaps the Debugger 

Dissassembles a given procedure 

Quits the Debugger, 'fresh' state if re-entered 

Exits Debugger, Debugger remains active, 'non-fresh' 

Single steps P-code and returns to Debugger 



Displays global memory 

Displays local memory 

Displays intermediate memory 

Displays data segement of given procedure 

Displays variables in another segment 
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3. EXTENDED MEMORY 

Extended Memory is availahle only on systems that use ar 8086 processor. 

If your system is configured with extended memory, then the Codepool resides in a 
different area than the Stack and the Heap. This allows much more space for 
code and data, and greatly reduces the chances of a Stack overflow. 

A Codepool that resides between the Stack and the Heap (as in all Version IV.O 

Systems) is called an "internal" Codepool. A Codepool that occupies a memory 

page of its own (as in systems with extended memory) is called an "external" 
Codepool. 

The segments in an external Codepool may not need to be moved or swapped as 
often as the segments in an internal Codepool, so extended memory provides a 
speed advantage as well. 

The description of Codepool handling that appears in Chapter 3 of the Internal 
Architecture Guide still applies, except that the Operating System's Codepool 
descriptor has been changed, as described below. 

The following fragment of Pascal shows the declarations for a Codepool descriptor 
in the current Operating System: 

type 

CodePool: 'Pooldes; 

{points to a description of the Codepool} 

Pooldes: record 

PoolBase: FullAddress; 

{the 1st physical address in the 
Codepool. A 32-bit quantity} 
PoolSize: integer ; 

{Size of the Codepool in words. 
This value is only referenced if 
the pool is external.} 
MinOffset: Memptr; 

{Byte offset of the lowest 
useable value in the pool. 
If the pool is internal this 
value depends on HeapTop; 
otherwise it depends only 
on segment alignment 
requirements (if any)} 
MaxOffset: Memptr; 
{Byte offset one word 
past the highest position 
in the pool. If the pool 
is internal, it also equals 
the SP_LOW value of the 
main task.} 
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Resolution: integer; 
{Segment alignment 
requirements in bytes 
(machine-dependent).} 
PoolHead: SIB_P; 

{Points to the SIB of the 
segment at the base of 
the pool. If the pool is 
internal, this is the 
segment nearest the Heap.} 
PermSIB: SIB_P; 

{Points to the SIB of the 
first segment that is 
locked in the pool.} 
SP Low: Memptr; 

X"The lowest possible bound 
of the Stack; if the pool 
is external, this is ignored; 
if the pool is internal, this 
is one word above the top of 
the pool.} 
HeapTop: Memptr; 

{Points to the top of the 
Heap; ignored if the pool 
is external.} 
Extended: Boolean ; 

{True if the Codepool is 
external.} 
end; 

The Codepool is managed only by the FAULTHANDLER segment within KERNEL. 

The p-System is shipped with extended memory disabled. If you have sufficient 
memory in your 8086 system, you may enable extended memory by doing the 
following steps. 

Execute the SETUP utility, and set the following data items in SYSTEM. MISCINFO 
to the values described: 

CODE POOL BASE[First Word] 
CODE POOL BASE[Second Word] 

This is a 32-bit address that denotes the lowest address of the memory page 
in which you want the Codepool to reside. Tirst Word' contains the four 
high-order hex digits, and 'Second Word' contains the four low-order hex 
digits. The least significant hex digit of the second word must be zero, so 
that memory segments will align properly. The PoolBase field in the 
Pooldes record will be set to this value. 

Important: If you do NOT use extended memory, then the value of both 
words MUST be set to zero. 
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CODE POOL SIZE 

This should equal the number of WORDS of memory in the Codepool area, 
MINUS ONE. This value can be as high as 32767 (a 64K-byte area). It can 
also be smaller, if desired. The Poolsize field in Pooldes will be set to this 
value. This value is ignored if HAS EXTERNAL MEMORY is false. 

HAS EXTENDED MEMORY 

This should be set to true if you are to use extended memory. This should 
be set to false if 64K (or less) memory is to be used. The Extended field 
in Pooldes will be set to this value. 

SEGMENT ALIGNMENT 

This should be set to 16 (base ten), which is the segrnent alignment for 8086 
processors. The Resolution field in Pooldes will be set to this value. 

After running SETUP and changing these values to fit your hardware, you must 
reboot in order for the changes to take effect. 
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4. NATIVE CODE GENERATION 

This product is presently available' for systems with Z80 and 8086 processors. 

The Native Code Generator is a utility that takes an executable P-code codefile as 
input, and produces another executable codefile. The output file, however, 
contains a mixture of P-code and native code (N-code) for either the Z80 or the 
8086 (whichever processor you are using). The Code Generator selectively 
translates embedded sections of the P-code input file into equivalent N-code. 

Generally, N-code executes much more quickly than P-code, but requires more 
memory space. Time-critical code may take fuller advantage of the processor's 
speed if it is translated into N-code. 

The selection of which code is translated into native code has been left under user 
control. The user specifies what code he wishes translated to N-code by enclosing 
the desired sections with the compile-time switches $N+ and $N-. When the 
Compiler encounters the $N+ option, it begins emitting additional P-codes that 
contain information necessary for the Code Generator to perform its translation. 
When it encounters the $N- option, it discontinues the generation of the additional 
P-codes. The default setting for this compiler option is $N-. 

An entire routine (Procedure, Function etc.) is the smallest unit that can be 
translated into Native Code at one time (in the current implementation). The $N+ 
must occur before the first begin within that routine. The Code Generator will 
not generate any Native Code unless at least one entire routine is included 
between a $N+ and the corresponding $N-. 

The object code produced by the Compiler from source containing the $N+ option 
is executable like any other P-code file. The only difference is a very slight 
increase in codefile size due to the extra P-code hooks placed there for passible 
native code generation. 

If there are any references to assembly language routines within a codefile, these 
routines must be linked in before that codefile may be processed through the Code 
Generator (see the chapter on the Adaptable Assembler and the section on the 
Linker in the Users* Manual for information about linking assembly language 
routines into codefiles). 

The Code Generator will not necessarily translate all P-codes within the section(s) 
of code specified by the user into N-code. Due to the unwieldy nature of their 
machine code equivalents, some P-codes will be left in their original P-code form. 
Also, only those sections of P-code that encompass an entire routine (procedure, 
function, or process in UC5D Pascal) will be translated. 

The Code Generator accepts codefiles generated by any of the compilers released 
as part of the UCSD p-System. The Code Generator will only fail to generate an 
output file if the input file is not a valid executable codefile. 

The Code Generator produces an object codefile whose execution behavior is 
identical to that of the P-code codefile, except for differences with respect to 
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execution speed, object code size, or implementation dependencies (for example, 
the evaluation of conditional expressions is often implementation-dependent). If a 
loop were constructed in the source program that checked the value of a variable 
and used the variable to index into an array in the same expression, it would be 
possible for the P-code object file to give a value range error for some value of 
the variable. The corresponding N-code however, might (in some situations) short- 
circuit the array indexing and subsequent value-range check if the first test failed. 

Concurrency is implemented in such a way that P-codes are uninterruptable 
operations. If a P-machine interrupt occurs during the execution of a P-code, the 
event is queued until the P-code finishes. In this respect, any embedded N-code in 
the codefile behaves as if it were a single P-code. If the user has a native code 
routine bound into a codefile, then the execution of that routine appears as a 
single uninterruptable P-code. Any P-machine interrupts that occur during the 
execution of the native code routine are queued until the end of the routine. 
Since the Code Generator does not, in general, translate all P-codes in the 
selected sections of the input file into N-code, it is typically a" much smaller 
sequence of N-code that appears as a single P-code to the P-machine. 

It is possible to force a poll within a routine that will be translated into native 
code by the Code Generator. To do this, simply include the pseudo-comment '{$N- 
,N+}' in the source code. 

When you run the Code Generator, it prompts you for an input file name and an 
output file name. If the input file name does not have '.CODE' appended to it, 
and a file with that name cannot be found in the directory, the Code Generator 
appends '.CODE' to the name and tries again. This does NOT happen when you 
specify the output file name. If you wish the output file to have a name with a 
'.CODE' suffix (which is generally the case), you must type '.CODE' yourself. 

Finally, the Code Generator can optionally output an assembly language format 
listing for each routine that it translates. 
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5. PRINT SPOOLING 

This product is available on systems with an 8086, Z80, or 8080 processor. Users 
of CP/M Adaptable Systems MUST write their own SBIOS in order to use print 
spooling. The requirements are mentioned in this chapter, and described in 
Chapter 1. 

The print spooler allows you to make a queue of files that are printed concurrently 
with normal execution of the p-System. The program itself is called 
SPOOLER. CODE, and it MUST reside on the System disk. The queue it creates is 
a file called *SYSTEM.SPOOLER. 

When SPOOLER is eX(ecuted, the following promptline appears: 

Spool: P(rint, D(elete, L(ist, S(uspend, R(esume, A(bort, C(lear, Q(uit 

P(rint prompts for the name of a file to be printed. This name is then added to 

the queue. If SYSTEM. SPOOLER does not already exist, it is created. In the 

simplest case, P(rint may be used to send a single file to the printer. Up to 21 
files may be placed in the print queue. 

D(elete prompts for a filename to be taken out of the print queue. AH_ 
occurrences of that file name are taken out of the queue. 

L(i8t displays the files currently within the queue. 

S(uspend temporarily halts the printing of the current file. 

R(esume continues the printing of the current file after a S(uspend. R(esume also 
starts printing the next file in the queue after an error or an A(bort. 

A(bort permanently stops the printing process of the current file and takes it out 
of the queue. 

C(lear deletes all file names from the queue. 

Q(uit exits the Spooler utility and starts transferring files to the printer. 

If an error occurs (e.g., a nonexistent file is specified in the queue), the error 
message appears only when the p-System is at the main System promptline. If 
necessary, the Spooler waits until the user returns to the outer level. 

Program I/O to the printer may run concurrently with spooled I/O. The Spooler 
finishes the current file and then turns the printer over to the user program. (The 
user program is suspended while it waits for the printer.) The user program should 
only do Pascal (or other high-level) writes to the printer. If the user program 
does printer I/O using unitwrite , the I/O is sent immediately and appears randomly 
interspersed with the I/O going on in the background. 

The utility SPOOLER.CODE makes use of the Operating System unit SPOOLOPS. 
Within this unit there is a process called Spooltask. Spooltask is start'ed at boot 
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time and runs concurrently with the rest of the UCSD p-System. When the file 
*SYSTEM.SPOOLER exists, Spooltask prints the files that it names. Spooltask runs 
as a "background" »:o the main operations of the p-System. 

♦SPOOLER. CODE interfaces with SPOOLOPS and uses routines within it to 
generate and alter the print queue within *SYSTEM.SPOOLER. 

To enable spooling, the HAS SPOOLING data item in *SYSTEM.MISCINFO must be 
TRUE. In addition, the QUIET and ENABLE routines in the Extended SBIOS must 
be implemented (see Chapter 1). Finally, the Interpreter's EVENT routine must be 
called from the Extended SBIOS with a keys-ready interrupt. 

Whenever a key is struck on the console, the SBIOS must call EVENT with an 
event number of 19. At present, this "keys-ready" interrupt is used only by 
SPOOLOPS, and the event number 19 is reserved for this purpose. 

For more information on EVENT, see the following chapter, Chapter I. 
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6. INTERRUPT HANDLING 

The programmer may define interrupts and how to handle them for systems with 
any currently supported processor. At present, the only "predefined" interrupt that 
is visiole to the: user is the keys-ready interrupt required for print spooling (see 
the preceding chapter, and Chapter 1). 

Compiled programs handle interrupts by use of the attach intrinsic. To use this 
facility, it is necessary to make some provisions in the SBIOS. These are 
described in this chapter. 

The current SBIOS is capable of calling these Interpreter routines: 

Routine Name Vector Number Description 

POLLUNITS P olls character I/O devices 

DSKCHNG 1 changes disk format values 

EVENT 2 signals an event 

(For the 8086, these routines are called through an address vector rather than a 
jump table. See Section 1.3.) 

EVENT is a new routine that can signal some event (typically a hardware event). 
There are no currently defined user events, but the programmer may define such 
events in the SBIOS, and use EVENT to implement them. 

Each event that the programmer wishes to recognize is given an event number. 
When the SBIOS detects one of these events, it passes the appropriate number to 
EVENT. 

If a Pascal program has attach ed a semaphore to an event number (as described in 
the Users' Manual) , then a call to EVENT with that event number signal s the 
semaphore. The ~siqnal takes place before the next P-code is executed. If the 
event number has not been attach ed, then the call to EVENT is ignored. 

The SBIOS programmer may define event numbers in the range 32..63. The 
numbers 0..31 are reserved for the System's use, and must NOT be used (except to 
enable print spooling, as described in the note below). 

EVENT destroys ALL processor registers except the Stack Pointer. 

Note: If you wish to support print spooling, then the Extended SBIOS mgst call 
EVENT with an event number of 19 whenever a key is pressed on the console. 
This is a System-supported event number, and there is no need to attach it. 
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Using KERNEL 



CONST 
VERSION = 'CIV 
MMAXINT = 32767 
MAXDIR = 77; 
VIOLENS = 7; 
TIDLENG = 15; 
MAXSEG = 15; 
FBLKSIZE = 512; 
DIRBLK = 2; 
AGELIMIT = 300} 
EOL = 13} 
OLE = 16; 
NAME_LENG = 23; 
SWAPPING = 0; 
P_LOCKED = -1; 
STACK SLOP = 40 
MEM LINK SIZE = 



1 B4h:'; 

{ MAXIMUM INTEGER VALUE ) 
{ MAX NUMBER OF ENTRIES IN A DIRECTORY ) 
{ NUMBER OF CHARS IN A VOLUME ID ) 
{ NUMBER OF CHARS IN TITLE ID ) 
{ MAX CODE SEGMENT NUMBER > 
{ STANDARD DISK BLOCK LENGTH J 
{ DISK ADDR OF DIRECTORY } 
{ MAX AGE FOR GDIRP...IN TICKS } 
{ END-OFFLINE... ASCII CR } 
{ BLANK COMPRESSION CODE J 
{ Number of characters in a full file name) 
{ Swapping segment status) 
{ Position Lacked segment status) 
( Number of words of temp for procedure stack) 
4; { Number of words in heap record) 



sys_error = 
proc_error= 3 
stk_error = 4 
sys_io_error = 9; 
halt_error = 14; 
heap_error= 15; 
seg_ fault = 12S 
stk'fault = 129 
heap_fault= 130 
pooL_fault= 131 



{ Unknown system error) 

{ Unknown procedure error) 

{ Stack overflow error) 

{ System I/O error) 

{ Programmed halt ) 

{ Heap operation error) 

{ Segment fault) 

{ Stack fault) 

{ Heap operation fault) 

■f Used to consolidate pooL after purge) 



TYPE 



IORSLTWD = aNOERROR,IBADBLOCK,IBADUNIT,IBADMODE,ITIMEOUT, 
ILOSTUNIT, ILOSTFILE, IBADTITLE, INOROOM, INOmiT, 
INOFILE , I DUPFILE , INOTCLOSED , INOTOPEN , IBADFORMAT, 
IBUFOVFL, i_write_prot f i_ill_block, i_ill_buf); 

{ COMMAND STATES... SEE GETCMD ) 

CMDSTATE = (sys_boot, sys_init, sys halt,UPROGNOU,UPROGUOK,SYSPR0G, 
COMPONLY, COMPANDGO,LINKANDGO,sys_debug> ; 

{ CODE FILES USED IN GETCMD ) 

SYSFILE = <ASSMBLER f COMPILER,EDITOR,FILER,LINKER>; 

{ ARCHIVAL INFO... THE DATE ) 



DATEREC = PACKED RECORD 
MONTH: 0..12; 
DAY: 0..31; 
YEAR: 0..100 
END ( DATEREC ) ; 



{ IMPLIES DATE NOT MEANINGFUL ) 

{ DAY OF MONTH ) 

{ 100 IS TEMP DISK FLAG ) 
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UNITNUM = 0..127; 
VID = STRINGrVIDLENGJ; 



{ VOLUME TABLES } 



{ DISK DIRECTORIES } 



DIRRANGE = O..MAXDIR; 
TID = STRINGCTIDLENGJ; 

fuLLJd = STRINGCna<ne_ Un- 
file.. tabLe = ARRAY Csys_file3 OF fulMd? 

FILEKIND = CUNTYPEDFILE,XDSKFILE,CODEFILE f TEXTFILE,INFOFIL£, 
DATAFILE,GRAFFILE,FOTOFILE,SECUREDIR,SUBSVOL); 

DIRENTRY = PACKED RECORD 

DFIRSTBLK: INTEGER; { FIRST PHYSICAL DISK ADDR } ' 
OLASTBLK: INTEGER; { POINTS AT BLOCK FOLLOWING } 
CASE DFKIND: FILEKIND OF 

SECUREDIR, 

UNTYPEDFILE: { ONLY IN DIRCOH... VOLUME INFO } 



(tillerj : 0..2048; 

DVID: VID; 

DEOVBLK: INTEGER; 

DNUMFILES: DIRRANGE; 

DLOADTIME: INTEGER; 

DLASTBOOT: DATEREC); 
XDSKFILE, CODEFILE, TEXTFILE, INFOFILE, 
DATAFILE,GRAFFILE,FOTOFILE,SUBSVOL: 



(13 bits} 

{ NAME OF DISK VOLUME } 

{ LASTBLK OF VOLUME } 

{ NUM FILES IN DIR } 

{ TIME OF LAST ACCESS } 

{ MOST RECENT DATE SETTING } 



(filler_2 : 0..1024; 
status : BOOLEAN; 
DTID: TID; 

DLASTBYTE: 1..FBLKSIZE; 
DACCESS: DATEREC) 
END { DIRENTRY } ; 



{12 bits) 

{Filer kludge temporary} 

{ TITLE OF FILE } 

{ NUM BYTES IN LAST BLOCK } 

{ LAST MODIFICATION DATE } 



DIRP = "DIRECTORY; 

DIRECTORY = ARRAY TDIRRANGE3 OF DIRENTRY; 



{ FILE INFORMATION } 

CLOSETYPE = ( CNORML , CLOCK, CPUR5E , CCRUNCH) ; 
WINDOWP = 'WINDOW; 

WINDOW = PACKED ARRAY CO.. 03 OF CHAR; 
FIBP = TIB; 

FIB = RECORD 

FWINDOW: WINDOWP; { USER WINDOW... F", USED BY GET-PUT } 

FEOF.FEOLN: BOOLEAN; 

FSTATE: (FJANDW,FNEEDCHAR,FGOTCHAR) ; 

FRECSIZEj INTEGER; { IN BYTES.. .0=>BLOCKFILE, 1=>CHARFILE } 

{Jock : SEMAPHORE; 



CASE FISOPEN; BOOLEAN OF 
TRUE: (FISBLKD: BOOLEAN; 
FUN1T: UNITNUM; 
FVID: VID; 
FREPTCNT, 



{ FILE IS ON BLOCK DEVICE } 

{ PHYSICAL UNIT # } 

{ VOLUME NAME } 

{ # TIMES F* VALID W/0 GET } 
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FNXTBLK, { NEXT REL BLOCK TO 10 } 
FMAXBLK: INTEGER; { MAX REL BLOCK ACCESSED } 
FMODIFIED: BOOLEAN ;{ PLEASE SET NEW DATE IN CCOSE } 
FHEADER: DIRENTRY;{ COPY OF DISK DIR ENTRY } 
CASE FSOFTBUFi BOOLEAN OF { DISK 6ET-PUT STUFF } 
TRUE: (FNXTBYTE.FMAXBYTE: INTEGER; 

FBUFCHN6D: BOOLEAN; 

FBUFFER: PACKED ARRAY C0..FBLKSIZE3 OF CHAR)) 



END { FIB } 



{ USER WORKFILE STUFF } 



INFOREC = RECORD 

SYMFIBP.CODEFIBP: FIBPj { WORKFILES FOR SCRATCH } 
ERRSYM,ERRBLK,ERRNUM: INTEGER; ( ERROR STUFF IN EDIT } 



SLOWTERM, STUPID: BOOLEAN; 
ALTMODE: CHAR; 
GOTSYM,GOTC0DE: BOOLEAN; 
WORKVID,SYMVlD,CODEVID: VID; 
WORKTID,SYMTID,CODETID: TID 
END { INFOREC } : 



int_p = "INTEGER; 
t?b_p = "tib; 
sib_p = "sib; 
e_rec_p = "e_rec; 
e_vec_p = "e_vec; 
sem_p = "sem; 
/nscwp = "mscw; 
p_/nem_chun(< = *mem_chunk ; 
vip = "vinfo; 

byte = 0..255; 

mem_ chunk = ARRAY 10.. 01 OF INTEGER; 

alpha = PACKED ARRAY CO.. 73 OF CHAR; 

mem_ptr = RECORD 

CASE INTEGER OF 

: (/» : */nem_Link); 

1 : (i : int_p); 

2 : (c : pjnem_chunk); 

3 : (t : INTEGER); 
END (of mem_ptr>; 



mem. link = RECORD 

avaiL_List : mem_ptr; 
n_words : INTEGER; 
CASE BOOLEAN OF 
TRUE : (Last_avail, 

prevjnark : mem_ptr); 
END (of (nem_Lfnk>; 

vinfo = record 

segunit : integer; 
segvid : vid; 
end (of vinfo); 



{ STUDENT PROGRAMMER ID!! } 

{ UASHOUT CHAR FOR COMPILER J 

{ TITLES ARE MEANINGFUL } 

{ PERM&CUR WORKFILE VOLUMES J 

{ PERM&CUR WORKFILES TITLE > 



{Accessed *R-> 
{Identifier name} 
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pooLptr = 'pootdes; 
sib - RECORD 

seg_pool : poolptr; 

seg_base : mem_ptr; 

seg_refs : INTEGER; 

timestamps INTEGER; 

link_count:INTEGER; 



{Base memory Location) 
{# of active calls} 
{Memory swap priority) 
{Nu/nber of links to SIB) 



residency: p_locked..MAX_INT; {memory residency status) 



seg_name : alpha; 
seg_leng .• INTEGER; 
seg_addr s INTEGER; 
vol_info : vip; 
data_size: INTEGER; 
res_sibs : RECORD 

next_sib, 
prev_sib : sib_p; 
CASE BOOLEAN OF 
TRUE j (next_sort 
FALSE : (new loc : 
END {of res_sibs); 
mtype: integer; 
END {of sib); 

e_vec = RECORD {Environment vector) 
vect_length : INTEGER; 
map : ARRAY Zi.Al OF e rec p; 
END {of e_vec); 



{Segment name) 
{# of words in segment) 
{Disk address of segment) 
{Disk unit and vol id of segment) 
{Number of words in data segment) 
{Code Pool management record) _ 
{Pointer to next sib) 
{Pointer to previous sib) 
{Scratch area} 
: sib_pj; 
mem_ptr) 



{Accessed SR-) 



e rec = RECORD 



{Environment record} 



env_data : me(n_ptr; 
env_vect : e_vec_p; 
env_sib : sib p; 
CASE BOOLEAN OF 
TRUE : (link_count 
next_rec : 
END; {of e_rec} ' 



{Pointer to base data segment) 
{Pointer to environment vector) 
{Pointer to associated segment) 
{Outer block information) 

: INTEGER; 

e_rec_p) ; 



mscw = PACKED RECORD { Mark stack control ) 

ms_stat : mscw_p;{ Lexical parent pointer ) 
: mscw_p;{ Ptr to caller's mscw ) 
INTEGER;{ Byte inx in retrn code seg ) 
e_rec_p;{ Environment of caller code ) 
ms_proc: integer;{ Proc # of caLler ) 
END { of mscw ) ; 



ms_dynl 
ms_ipc ! 
ms env : 



tib = RECORD { 
regs : 



Task information block ) 

PACKED RECORD 
wait_q : tib_p; { Queue link for semaphores ) 
prior i byte; { Task's cpu priority ) 
flags : byte; { State flags... not defined yet ) 
sp_low : mem_ptr; { Lower stack pointer limit ) 
sp_upr ; mem_ptr; { Upper limit on stack ) 
sp : mem_ptr; { Actual top of stack pointer ) 
mp ; mscv_p; { Active procedure MSCW ptr } 

reserved : integer; 
ipc : IHK6ER; { Byte ptr in current code seg ) 
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sem 



env : e_rec_p; { Ptr to current environment } 

procnu/nzbyte; 

tibioresultzbyte; 

hang_p : sem_p; { Which task is waiting on } 

m_depend : INTEGER;* Reserved for interpreter } 

{ initted to when process started } 
END { of regs > ; 
main_task : BOOLEAN; 
start_fflscw : mscw_p; 
END { of tib } ; 

RECORD { Semaphore format } 
sem_count : INTEGER; { Number outstanding signals } 
sem_wait_q : tib p { List of tasks waiting on sem > 

END { of sem } : 



fault_message = RECORD 

fault_tib : 
fault_e_ rec 
fault_words 
fault_type : 



tib_p; 
: e_rec_p; 
: INTEGER; 
seg_fauLt..pooL_ fault; 



END (of faultjnessage}; 

fuLladdress = arrayCO.AJ of integer; {32 bits) 

utablentry = record 

uvid : vid; { volume id for unit } 
case uisblkd : boolean of 
true .• (ueovblk : integer; 
uphysvol •■ unitnum; 
ublkoff : integer; 
upv id : vid) 
end futable) ; 
utable = array CunitnumZI of utablentry; ( not used } 

{ SYSTEM COMMUNICATION AREA J 



{ PHYSICAL UNIT OF BOOTLOAD } 

{ GLOBAL DIR POINTER, SEE VOLSEARCH } 



< SEE INTERPRETERS... NOTE 
{ THAT WE ASSUME BACKWARD 
{ FIELD ALLOCATION IS DONE 
syscomrec = record (modified for IV. 1} 

iorslt : iorsltwd; { RESULT OF LAST 10 CALL } 

rsrvdt s integer; 

sysunit : unitnum; 

rsrvd2 : integer; 

gdirp : dirp; 

fault_sem : RECORD 

real_sem, message_sem .• SEMAPHORE; 
message : fault message; 
END fof fault_semJ; 
{ starting unit number for subsidiary volumes) 
subsidstart : unitnum; 
rsrvd3 : integer; 
spool_avail : boolean; 
pool info : record 

pooloutside 
pools ize 
poolbase 



boolean; 
integer; 
fuLladdress; 
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(number of user serial units) 
Cmax number of subsid vols) 



resolution ; integer? 
end; 
tiroestamp i integer; 
unitable i "utable; 
unitdivision i packed record 
serial/nax i byte; 
subsidmax i byte; 
end; 
expaninfoi packed record 

insertcnar,deLetcharjchar; 
expanl,expan2j integer; 
end; 
pmachver i <pre_iv_i, ivj, post_iv_l); 
reals ize j integer; 
MISCINFOi PACKED RECORD 

NOBREAK, STUPID, SLOWTERM, 
HASXYCRT,HASLCCRT,HAS8510A,HASCL0CKj BOOLEAN; 
USERKIND j (NORMAL, AQVIZ, BOOKER, PQVIZ) 
END; 
CRTTYPE: INTEGER; 
CRTCTRLj PACKED RECORD 

RLF,NDFS,ERASEEOL,ERASEEOS,HOME,ESCAPEj CHAR; 
BACKSPACE! CHAR; 
FILLCOUNTj 0..255; 
aEARSCREEN, CLEARLINEj CHAR; 
PREFIXEDj PACKED ARRAY CO.. 81 OF BOOLEAN 
END; 
CRT INFO: PACKED RECORD 

WIDTH,HEIGHTi INTEGER; 
RISHT,LEFT,DOWN,UPj CHAR; 
BADCH,CHARDEL,STOP,BREAK,FLUSH,EOF: CHAR; 
ALTNOPE,LINED£Lj CHAR; 
alphaLok.cbar.inask.ETX, PREFIX j CHAR; 
PREFIXED: PACKED ARRAY C0..15J OF BOOLEAN; 
END 
END { SYSCOH }; 



MISCINFOREC 



RECORD 

MSYSCOMi SYSCOMREC 
END; 



pooldes = 



record 
poo I base 
pools ize 
minoffset 
maxoffset 
resolution 
poolhead 
perms ib 
extended 

end; 



fulladdress; 

integer; 

fliemptr; 

metnptr; 

integer; (in bytes} 

sibp; 

sibp; 

boolean; 



bytearray = packed array CO.. 03 of byte; 



VAR 
SYSCOH: 
GFILESi 



"SYSCOMREC; 

ARRAY CO.. 5 J OF FIBP; 



{ MAGIC PARAM...SET UP IN BOOT } 
{ GLOBAL FILES, 0=INPUT, 1=0UTPUT > 
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USERINFO: INFOREC; 
EMPTYHEAP: 'integer; 
main task : tib_p; 
Has PW : BOOLEAN? 
INPUTFIB , OUTPUTFIB , SYSTERM 
SYVIft,DKVID: VIDj 
THEOATE: OATEREC; 
STATE t CMDSTATE; 
heap_info 



FIBP; 



task info 



RECORD { Stuff for heap management 

Lock : SEMAPHORE; 

topjnark, 

heap_top : mem_ptr; 
END { of heap_info > ; 
RECORD { Stuff for task management } 

Lock, 

task done : SEMAPHORE; 

n_ tasks : INTEGER; 
END { of task info } ; 
IPOT: ARRAY CO.. 43 OF INTEGER; 
FILLER: STRINGC11J; 



{ WORK STUFF FOR COMPILER ETC J 
{ i£AP MARK FOR MEM MANAGING J 
{ task info block of op sys prog } 
{ performance monitor in use } 
{ CONSOLE FILES... GFILES ARE COPIES } 
f SYSUNIT VOLID & DEFAULT VOLID J 
{ TODAY... SET IN FILER OR SIGN ON } 
{ FOR GETCOMMAND J 
} 



{ INTEGER POWERS OF TEN } 



{ NULLS FOR CARRIAGE DELAY } 



'9' 



DIGITS: SET OF '0' 

PL: STRING; 

maxunit : unitnum; 

FILENAME: file_ table; 

junk : process id; 

fauLt_sem : RECORD 

real_sem, message_sem 
message : fault_mes5age; 
END {of fault_sem}; 

unit_list : e_rec_p m , 

user_env_vec, 

sys_env_vec : e vec p; 

diAock : SEMAPHORE; 

inexerr : boolean; 



SEMAPHORE; 



{ for volume and directory exclusion } 
{ set when processing execution errors 

so that file system locks are not enforced > 
{ true when gdirp contains a flipped directory } 



dfliptog:boolean; 

debugging:boolean; 

permListrmemptr; f. list of "pernianent'' nev's } 

suspectset : set of unitnum; 

atsyspromptrboolean; { true if at system prompt J 

{ library text file J 

{ last unit placed on unit_List that is a 
system unit; all subsequent units added 
to the unit_tist are user units } 

•fset to true if dumpsegs can't get any more room) 



userlib:fullid; 
syslist;e_rec_p; 



nofit ; boolean; 
codepool : poolptr; 
resolving_break : boolean; {true if in debugger and a code segment 

must be read in without breakpoints) 

procedure exec_error(bad_e_rec_p:e_rec_p; n_words,err: integer); 

procedure loadseg(segerec:erecp) ; 

procedure rlocseg('segerec:erecp) ; 

function ptr_add (p : mem_ptr; n_words s integer) : int_p; 

function ptr_sub (p_0, p_l : mem_ptr) : integer; 

function ptr_Less (p_l, p_2 : mera_ptr) : boolean; 

function ptr_gtr (p_l, p_2 : mem_ptr) : boolean; 

function ptr_geq (p_l, p_2 : mem_ptr) ; boolean; 
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procedure printfs: string); 

procedure print int ( i : integer) ; 

procedure writestr(s:string); 

procedure chechunit(lvid:vid; lunit:unitnum); 

procedure moveseg(segsib:sibp; srcpool.-poolptr; srcoffsetrmeraptr); 



"nd of Compilation. 
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Using COMMANDI 

type bigstring=stringC255J f - 

var havechain, inredirect.outredirect.monitoropen, inmonitor.-boolean; 

function redirect(command:bigstring):boolean; 

procedure exception(stopchaining:boo(.ean)j 

procedure chain(co/iMiand:bigstring); 

procedure initcomfliand; 

procedure startmonitor; 

procedure stopmoni tor (save itrboolean); 

procedure getchainLine(var cominandrbigstring)} 



impiLation. 



•ascaL Compiler IV. 1 c5s-4 11/24/83 



Page i 



2 
3 
4 
5 

7 
8 

V 



2 
2 
2 
2 
2 
2 
2 
2 



l:u 
l:u 
l:u 
isu 
i:u 
l:u 
l:u 



Using E'RRORHAN 



type 
drive_range 



4.. 127? 



procedure set_error_line (tine : integer); 

procedure set_user_message (drive : drive_range; mess : string); 



«d of Compilation. 



Pascal Compiler IV. i c5s-4 11/24/53 



Page 1 



2 
2 
2 
2 

2 
2 
2 
2 
2 
2 
2 
2 

16 ™ 

17 2 

2 
■? 



2 

J 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1J 



18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32^ 

33^ 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 



l:u 

l:u 

l:u 

l:u 

l:u 

l:u 

ltu 

l:u 

l:u 

l:u 

l:u 

im 

l:u 

l:u 

l:u 

l:u 

t:u 

l:u 

l:u 

l:u 

l:u 

l:u 

l:u 

l:u 

l:u 

l:u 

l:u 

l:u 

l:u 

l.'U 

l:u 
1:u 
lm 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 
i:u 
l:u 
l:u 
l:u 
l:u 
l:u 
l:u 



23 
2 
25 
25 



Using 5CREEN0P 



const 

sc_fiU_len = 11; 
sc.eol = 13; 



type 



sc_chset 
sc raise rec 



sc date rec 



sc_info_type 



= set of char; 
= packed record 

height, width : 0..255; 
can_break, sLow, xy_crt, Lc_crt, 
can_upscroLl, can_downscrolL : boolean; 
end; 
= packed record 
month : 0..12; 
day : 0..3i; 
year : 0..99; 
end; 
= packed record 

sc_version : string; 
sc_date : sc_date,_rec; 

spec_char : sc_chset; {Characters not to echo) 
misc_info j sc_misc_rec; 
end; 
= stringC2553; 

= (sc_whome, sc_eras_s, sc_erase_eol, sc_clear_Lne, 
sc_cLear_scn, sc_up_cursor, sc_down_cursor, 
sc_(.eft_cursor, sc.right_cursor); 
(sc_backspace_key, sc_dcl_key, sc_eof_key, sc_etx_key, 
sc_escape_key, sc_del_key, sc_up_key, sc_dowii_key, 
sc_Left_key, sc_right_key, sc_not_legal f ~sc_ insert Jcey, 
sc_delete_key); 
(sc_get, sc_give); 
packed array ZQ..03 of char; 
record 
row, col, { screen relative) 

height, width, { size of txport (zero based)} 
cur_«, cur_y : integer; 

{cursor positions relative to the txport > 
end; 



(entries 4.. syscom*. subs idstart-1 are valid) 
sc_err_msg_array = array C4..4J of "string; {accessed $R-} 

var 
sc_port : sc_tx_port; 
sc_printable_chars : sc_chset; 
5c_errortine : integer; 
sc_errormessage : *sc_err_msg_array; 

procedure sc_use_info(do_what:sc_ choice; var t_info:sc_info_type); 
procedure sc_use_port(do_what:sc_choice; var t~port:sc~tx_port); 
procedure sc_erase_to_eoL(x, line: integer.); 
procedure sc_left; 
procedure sc_right; 



sc_long_string 
sc scrn command 



sc_key_coinmand = 



sc_choice 
sc_window 
sc_tx_port 
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sc.up; 

sc_downj 

sc_getc_ch(var ch:char; return_onjnatch:sc_chset); 

sc_ctr_screen} 

sc_clr_line (y: integer); 

sc_home ; 

sc_eras_eos (x, line: integer); 

sc_goto_xy(x, line: integer); 

sc_clr_cur_line; 

sc_find_x: integer; 

sc_f ind_y: integer; 

sc_5crn_has(vhat :sc_scrn_cofflmand): boolean; 

sc_has_key(what:sc_key_command) .'boolean; 

sc_map_crt_co<nmand(var k_ch:char) :sc_key_com/!iand; 

sc_pro(iipt(line :sc_long_string; x_cursor,y_cursor,x_pos_, 

where: integer; return_on_watch:sc_chset; 

no_char_back: boo lean; break_char:char):char; 
sc_ che ck_char(var buf:sc_window; var buf_index,bytes_left: integer) 

{boolean; 
sc_space_wait(flush:booLean):booLean; 
sc_init; 



nd of Compilation. 
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Using SYSINFO 



Type SI_Date_Rec = Packed Record 

Month : 0..12; 
Day : 0..31; 
Year : 0..99; 
End; f SI_Date_Rec J 



Procedure SI_Code_v"id (Var SI_Vol : String); 
{ Returns name of volume containing current workfiLe code } 



Procedure SI_Code_Tid War SI_TitLe : String); 
{ Returns title of current workfile code J 



Procedure SI_Text_Vid War Sl_VoL : String); 
{ Returns name of volume containing current workfile text 3 



Procedure SI_Text_Tid (Var SI_Title : String); 
{ Returns title of current workfiLe text } 



Function SI_Sys_Unit : Integer; 
{ Returns number of bootload unit } 



Procedure SI_Get_Sys_Vol (Var SI_Vol s String); 
{ Returns system volume name > 



Procedure SI_Get_Pref_Vol (Var SI_Vol i String); 
{ Returns prefix volume name } 



Procedure SI_Set_Pref_Vol <SI_Vol : String); 
{ Sets prefix volume name } 



Procedure SI_Get_Pate (Var SI_Date : SI_£>ate_Rec) ; 
{ Returns current system date } 



Procedure SI_Set_Date (Var SI_Date : SI_Date_Rec); 
{ Sets current system date > 



{##**###############♦*#######################*######################*##) 



Ind of Compilation. 
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Using FILEINFO 



Type F_File_Type = file; 

F_Date_Rec = Packed Record 

Month s 0..12} 

Day s 0. .31; 

Year s 0..100; 

End; { F_Date_Rec } 



Function F_0pen (var fid: F_File_Type):boolean; 

(* returns true if the file is open and false if not open #) 

Function F_Length (Var Fid : F_File_Type) : Integer; 

{Returns the length of the file attached to the Fid identifier. 
If the file is not opened result is returned as zero} 



Function F Unit number (Var Fid 



'. F_F i I e_ Type) 



integer; 



{Returns the unit containing the file attached to the Fid 
identifier. If there is no file opened to Fid, the function 
result is Zero.} 



Procedure F_ Volume (Var Fid s F_File_Type; 

Var File_Volu/ne s String); 

{Returns the name of the volume containing the file attached 
to the Fid identifier. If there is no file opened to Fid, 
the file_volume is set to a null string.} 



Procedure F_File_Title (Var Fid : F_File_Type; 

Var File_Title s String)^ 

{Returns the title (with suffix.) of the file attached to the 
Fid identifier. If there is no file opened to Fid, 
the File_title is set to the null string.} 



Function F Start (Var Fid 



F_File_Type) 



integer; 



{Returns the block number of the first block of the file 
attached to the Fid identifier. If there is no file opened 
to Fid, the function result is returned is zero.} 



Function F is Blocked (Var Fid 



F_File_Type) s Boolean; 



{Returns a boolean that is TRUE if the file attached to the 
Fid identifier is located on a block-structured unit. If there 
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is no file opened for the Fid or if the device is not block structured 
, the function result is set to false.) 



Procedure F_Date War Fid : F_File_Type; 
Var File_Date : F_Date_Rec)j 

(Returns a record indicating the Last access date for the file 
attached to the Fid identifier. If there is no file opened to 
Fid, the File_Date is unchanged.) 



ind of^-Compilation. 
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Using WILD 



Type 



D_PatRecP 
D PatRec = 



= *D_PatRec; 
Record 

CompPos, 

CompLen, 

WildPos, 

WildLen : 

Next s D_PatRecP; 
End; { 0_ PatRec > 



f. starting position of pattern in subject string > 
{ Length of pattern in subject string } 
{ starting position of pattern in wild string } 
Integer,- { length of pattern in wildcard string } 
{ next pattern } 



Function D_Wild_Match(Wild, Comp : String; Var PPtr : D_PatRecP; 

PInfo ; Boolean) : Boolean; 

{ Compares two strings (one containing wildcards) and returns true if they 
match. Includes information about pattern matching that occurred if re- 
quested (by PInfo) } 



nd of Compilation. 
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Using OIRINFO 

uses 
(*$U WILD. CODE*) wild; 



Type 
D DateRec 



Packed Record 
Month r 0. .12; 
Day r 0..3i; 
Year r 0..100; 

End; 



D_NameType = (D_Vol, D_Code, D_Text, D_Data, D_SVol, DJemp, D./ree); 
D_ Choice = Set of DJJameType; 



D_ListP = *D_List; 
D List = Record 



D_Unit : Integer; 
D_ Volume r StringLTJ; 
D_Wat : D_PatRecP; 
D_NextEntry r D_ListP; 
Case D_IsBlkd r Boolean Of 
True r (D_Start f 

D_Length r Integer; 
Case D_Kind 
D_Vol, 
D_Te/np, 
D_Code, 
D_Text, 
D Data, 
D SVol 



{ Unit # of entry } 
{ volume name of unit } 
{ volume pattern info } 
{ Next entry in list > 

f Starting block of entry } 
( Length (in blocks) of entry > 
D_MameType Of 

C Everything but D_Free } 



End; 

D_Result = (D_Okay, 

D_Not_Found, 
D_Exists, 
D_Name_Error, 
D Off Line, 
D_Other); 



(D_Title r StringC15J;{ File name } 
D_FPat r D_PatRecP; ( name pattern info } 
D_Date r D_ DateRec; { FiLe date > 
Case D_NameType of { # of files on vol > 
D_Vol r (D_NumFiles r Integer))); 



{ Mission accomplished } 

{ Couldn't find name and/or type J 

{ Name already exists; no name change made } 

i Illegal string passed J 

f Volume not on line } 

f Miscellaneous error } 



Function D_Dir_List(D_Name r String; D_Setect r D_ Choice; 

Var D_Ptr r D_ListP; D_PInfo r Boolean) r D_Result; 

{ Creates pointer to list of names of specified NameTypes 
(D_Select), matching specified D_Name (wildcard characters allowed). In- 
cludes information about pattern matching that occurred i{ requested 
(by D_PInfo) } 
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Function D_Scan_Title(0_Name i String,- Var 0_VoLIO, 0_TitleID : String; 

Var DJype : DJfameType; Var D Segs : Integer) : D Result: 
{ Parses D_Name > 

Function D_Change_Naffle<D_OldNa«ie, DJfewNaae : String; D RemOld : Boolean) : D Result; 
{ Changes file name in D_OldName to name in DJfewName, removing already 
existing files of name in D_NewName if D_RemOld is set } 

Function D_Change_£)ate(D_Na/»e : String; D_NewDate : D_DateRec; 

0_Select : Choice) : Result; 
f Changes date of directory or file name in D_Name to date specif ied'by 
0_NewDate. D_Name may contain wildcards } 

Function D_Rem_Files (D_Name : String; D_Select : D_ Choice) : D Result; 
{ Removes file of specified name (wildcards allowed) } 

Procedure 0_Lock; 
Procedure D_ Release; 

{ Provide means to limit use of Oirlnfo routines to one task at a time 
in multi-tasking environments J 

Function D_Krunch (D_Unit, 

0_Block : Integer) : D_ Result; 
i Collects all unused space on a volume around D_Block. This unit must 
not be in use when this operation is performed. } 

Function DJIount (D_FiLe_Name : String) : D Result; 
Function 0_OisMount CO_Vol_Name : String) :~0_Result; 
{ Provides a means of mounting and dismounting subsidiary volumes. 
Wild cards may be used. } 



f***#***##**«f#*####**################ ######M################### , 



*######*#} 



"id of CompiLation. 
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l:d 1 program windowdisp; 
Using WINDOWMA 



{Window Manager for the UCSD p-System} 

(Windows are displayed as rectangular areas on the screen, bordered by 
a frame and optionally headed by a heading. Each window has its own 
size, screen Location, text area, cursor and status information. 
Each window may be written into and wilt scroLl independently, and 
may be cLeared, moved, changed in size, etc. by a user's program. 

During any input operation the user may escape into 'Window Manager 
Mode' Cand subsequently return to 'Input Mode', to complete the input). 
In Window Manager Mode the Window Manager uses a special cursor which 
is independent of any window. This cursor is used to indicate screen 
position parameters to the Hide, Show, Alter, Move and Kill commands. 
Whether or not a particular command may be applied to a particular 
window is controlled by the user's program. 
} 

CONST WVe rs i on= ' 10-Dec-82 ' ; 
NoWindow=Oj 
MaxWindow=10; 

TYPE Window=NoWindow. .MaxWindow; 

WindowOptions=(CanHide,CanMove,CanAlter,CanKill, 

HasHeading, CanScroll , CanPan) ; 
WindowAttributes=SET OF WindowOptions; 

{Initialisation Routines} 

PROCEDURE WStartup; 

(Called by *SYSTEtt. STARTUP to REALLY initialise} 
{If window manager is placed in *SYST£M, PASCAL then you MUST supply 
a #SYSTEM. STARTUP that calls WStartup. Thereafter any program which 
uses the window manager should initialise via WInit, the effect of which 
is to repaint the screen as it was when the Last using program terminated. 
If Window Manager is not in *SYSTEM. PASCAL then use WStartup always} 

PROCEDURE WInit; 

{Initialise Window Manager System} 

{just redisplays all windows} 

(if Manager is a system unit, all windows survive program changes} 

{Routines to create, alter, show, clear, hide and dispose of windows} 

FUNCTION WNew(WatX,WatY,WSizeX,WSizeY:INTEGER; 

WControls.'WindowAttributes; 

WHeading: STRING): Window; 
{Get new window} 

PROCEDURE WAlter(W:Window; 

WatX,WatY,WSizeX,WSizeY:INTEGER; 

WControls:WindowAttributes; 

WHeading.-STRING); 
{Alter existing window} 
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{WatX,WatY,SizeX,SizeY -ve means do not alter) 
{WControls replaces existing window attributes) 
{Window must not be in show when WAlter called) 

PROCEDURE WShow(W.'Window); 

(Display window and set it as "current" one) 

PROCEDURE WCtearAndShow(W:Window) ; 
{Clear window, then "Show" it) 

PROCEDURE WHide(W:Window); 

{Remove window from screen - it is not disposed of) 

PROCEDURE WD i spose (W : W i ndow) ; 

{Dispose of old window) 

{Window must not be in show when WDispose called) 

{The following procedures all apply to the "current" last shown window) 

PROCEDURE WClear; 
{Clear Window) 

PROCEDURE WClrEOL; 

{dear remainder of current line) 

PROCEDURE WClrEOS; 

{Clear remainder of window) 



base of 0, exduding heading) 



PROCEDURE WGotoXYCX, Y:INTEGER) ; 

{Set Window cursor to X,Y) 

{X,Y are relative to top left of window - 

PROCEDURE WWr iteCh(Ch:CHAR> ; 

{Write Ch at cursor position in window) 

{Non printable chs map to belt) 

PROCEDURE WWr i teStr (Str .-STRING) ; 

{Write Str at cursor position in window) 

{MUST mi CONTAIN NON PRINT/ABLE CHARS) 



PROCEDURE WWriteInt('Int,Width:INTESER); 

(Write Int at cursor posn in window) 

{Equivalent to WRITE(Int:Width) in Pascal) 

{Width may be (or -ve) to mean as narrow as possible) 

PROCEDURE WWriteLn; 

{Write newnne at cursor position in window) 

{If cursor goes below base of window, window is cleared) 

PROCEDURE WReadCh WAR Chs CHAR; Echo: BOOLEAN); 

{Get character from keyboard) 

{Window functions can only take place within WReadCh) 

{Any non window function ch is returned to user ) 

{Echo is controlled by user - non printable chs echo as belL) 

{Other Window Reading Procedures - below - use WReadCh) 

PROCEDURE WReadLnStKVAR Str:STRING>; 
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{Get a string from keyboard - echoed) 

(String is ended by newLine. Only edit ch allowed is backspace) 

{Non printable chs are not returned - but echo as beLl) 

PROCEDURE WReadLnlnt (VAR Int.- INTEGER); 

{Get an integer from keyboard - echoed) 

{Integer is ended by newline. Only edit ch alLowed is backspace} 

{Non printable chs are not returned - but echo as bell) 

PROCEDURE WReadLn(EchoiBOOLEAN) ; 

{Read up to next newLine from keyboard) 

{Non printable chs echo as beLL) 

{the following functions and procedures are utilities on windows) 

FUNCTION WInWindow(X,Y:INTEGER):Window; 

{Returns window in which position X,Y occurs - NoWindow if none) 

{X,Y in screen coordinates) 

FUNCTION WChAtXY(X,Y:INTEGER; W:Window):CHAR; 
{Return Ch under screen position X,Y in W) 
{Space returned if X,Y not in Window, or NoWindow) 
{Ch need not be in view at time of call) 

PROCEDURE WXYCVAR X, Y: INTEGER); 

{Get Coordinates of window manager cursor - in window coordinates) 

PROCEDURE WCursorXYCX, Y.-INTEGER) ; 

{Set coordinates of window manager cursor - in window coordinates) 

FUNCTION WCurrentWindow.'Window; 

{Return Current Window - one Last shown - may be NoWindow) 

(HISTORY 

Copyright: Austin Tate, ERCC. ALL rights reserved. 

This program may be used for non-commerciaL purposes 
by users of the UCSD p-System provided that this 
copyright notice appears in the source. Enquiries for 
other uses should be directed to the copyright owner. 

The Window Manager was originally written in March 1981 by 
Austin Tate, ERCC as a demonstration for a course on Office 
Systems and Advanced PersonaL Computers. 



It was subsequently modified by Chris Lee while at INMOS up 
to 10-Feb-82. The major changes he made were: 

I/O optimisation - all I/O is delayed as Long as possible, and 
is done in as Large units as possible, via UNITWRITE (asynch ! .' ! ) , 
and isn't done at all if what we want is on the screen already. 
See routines fLushoutput and repaint. Repaint certainly pays 
its way (try moving and altering windows with the originaL and 
this version), fLushoutput almost certainly doesn't - it makes 
Lines zap out in one swell foop, but stops the dreaded dots. 

Window Functions - on the operator interface are all handled 
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inside the window manager. During input use ESC to toggle between 
window manager and input modes tend notice the cursor change when 
you do). See WindowFunction. Notice that screen position parameters 
are signalled by moving the cursor and typing ESC or <space> (known 
as a 'mark' in Window Manager Mode). Eg, to move a window type 
ESC — to enter window mode 

<move cursor into window to be moved> 
M or m — to request a move 

> <move cursor to new top Left corner position* 

<space> or ESC — the window moves at this point 

<space> or ESC — to return to input mode 

NB at point > WindowFunction calls itself recursively. You 

can nest window functions (and get into a real mess) if you want). 
The interface to WNew has changed to allow the programmer to 
control what WindowFunctions the user may apply to a window." 

Frames -. are drawn by characters. There are CONSTs for the four 
corners and four sides so if you have forms drawing chars you 
should be able to make things Look pretty 

Scrolling and Panning - misc minor changes. Scroll by one third 
of window depth rather than one Line. Only re-pan at input time. 
Both these mods are designed to eliminate unnecessary 1/0 and 
repainting. 

To improve efficiency WWriteStr assumes that onLy printable 
chars are in the string. 

This version was produced during experimentation into window 
management. Hence the code hasn't been beautified and bugs 
may be present. 



The Window Manager as modified by Chris Lee was then aitered in 

some minor respects by Austin Tate prior to release to the 

UCSD p-System Users' Society (VSUS) Software Library in February 1982. 



uses ($u #5:wf iter.codeJwindowmanager; 
begin end. 



!nd of Compilation. 



